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A. DISCUSSION 
ie General 

The purpose of this thesis is to extend the 
eeepevring version of MCORTSX to a distributed nulti-computer 
real-time executive which transcends the boundaries of a 
length-limited parallel system’s bus, the MULTIBUS. This 
extension is provided by a local area network (LAN) medium, 
the Ethernet, and the additional operating system 
Prinitives. 

As the anti-air warfare (AAW) system of the 1980%5 
for the U.S. Navy, the AEGIS Weapon System captured the 
attention of a project froup at the Naval Postgraduate 
School (NPS). The project group was formed t9 look at the 
AN/SPY-14 phased array radar processing unit. This unit was 
memected due to the tine critical nature of the processing 
megiirements, 1.e€., the fast reaction to inbound hostile air 
Sertvacts ‘missile and aircreft). The AEGIS Modeling Group 
mas been working on the YLSI architecture and the MCORTEX 
Gea time Executive for several years. 

The fundanental ndojective 1s to De IL yale 
commercially available LSI and VLSI components that can hte 
implemented in a modular form within the AEGIS Weapons 


system. Subseauent low Gost 25 dad desirable effect, but the 


ime 


proposed replacement cf the current four-bay AN/U1 ie 
computers, of the AN/SPY-1A phased array suite, is not soley 
cost-tased. Reliability and functional redundancy in the 
event of failure are extremely important criteria. Mean time 
to repair (MTTR) is a crucial issue for deployed units (ship 
or aircraft), due primarily to the unavoidable disrupted Sea 
Lanes of Communication (SLOS). An onboard technician could 
ciscard a failed component and replace a low cost bol 
device, such 45 @ microprocessor, from an onboard “Sie 
bin. 

The project team has produced (up to and inclij@aage 
this thesis) a highly modular hardware base, integrated with 
an equally modular and highly extensible scftware base. The 
use of wvthernet as the highest level bus has introduced 
another commercial-grade product into an existing system of 
commercial-grade products. As an established standard in 
the marketplace, the low cost, availability, and support of 
Ethernet is virtually guaranteed for years to come. 


e. specifi 
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We define acluster as a group of tno lee board 
computers (SEC), controlled by multiple kernels of MCORTEX, 
Sharing a common backplane. The integration ot the kernels 
With a general purpose commercially available operating 
system (CFP/M-86) collectively provides multiprogramming 
capability, multiprocessing capability, and standard disk 


operating system (DOS) funet tone. Increased cost- 


ik 


Meriormance 1S red@iized by expanding MCORTEX to allow 
multiple kernels to schedule orocesses that synchronize and 
communicate via an intercluster bus (Ethernet). The benefits 
of interconnecting processing nodes to facili ipa te 
mirormation exchange ard resource sharine has long been 
recognized. These recognized benefits are being applied in 
the development of extended MCORTEX. The Co eet htt .of 
[ela ble clusters and the high speed interconnect is 
collectively known as RTC* (Real-time Cluster Star). As will 
pe seen, the Kleene closure connotes the true power and 
extensibility of MCORTEX. 

The locality of processing modules ina real-time 
environment is tantamount to speed and efficiency. By 
mre ctively co-locating real-time sensors) and related 
processing modules, real-time data aquisition and processing 
is assured. Hitmen oter ne nthernet mined ums dadllows the 
extension of needed process synchronization and interprocess 
comnunications to processing nodes which cannot be located 
physically close enough for shared memory. 

As a fully distributed real-time executive, MCORTEXZ 
consists of single board resident kernels which support 
multiprocessing. Process synchronization between vee walt 
Rageesses ite thessame cluster or in different clusters is 
provided, entirely transparent to user processes, through 


integrated cluster hardware and kernel primitives. 


The distinction must be made between user processes 
and system processes. MCORTEX 15 the €xe€cultive wire 
provides primitives to allow processes to Synchronize and 
communicate asynchronously. The only system process invoked 
by MCORTEX is the device-ilependent Ethernet Communica tia 
Controller Board (ECC3) handler and packet interpreter. This 
system process is resident within one SBC at each cluster. 
As a consumer of Ethernet Request Packets (EPP), produced by 
€ach kernel, this virtual processor does not compete against 
other processes for a time auantum. It is through the ERPs 
that user processes make known their need to transmit 
information over Ethernet. It is transparent to the user 
processes, however, that an ERP is generated; MCOHXTEX takes 
care of this detail. The sCCB handler and packet interpreven 
is scheduled under MCORTEX and never surrenders "Ene CPAs 
When it does not have any *thernet kKequest Packel Sia. 
consume, it idles in a Busy Wait loop. It is antici pamed 
that its wait will be minimal. User processes are those 
which are independent of cluster hardware, generally cyclic 
in nature, and provide a function in Support of (the "eae 


Weapon system Simulation and \Vedelin- eet forts 


B. BACKGROUND 

The initial design of MCORTEX was completed in 1980. The 
implementation for the iSPC &6/12 single board processome 
was completed in three Naval Postgraduate School theses in 
19@1 and 1362. Wasson [Ref. 1] defined the detailed design 
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Ot an operating system tailored to real-time image 
processing. Fis tes onemuseda the MULTICS concept of 
segnentation and per process stacks and Reed and Kanodia’s 
(Ref. 2] eventcount synchronization methods. Rapantzikos 
(Ref. 3] began the initial implementation of wWasson’s 
Mrorts. At this point, MCORTEX used the concept of a_ two 
level traffic controller to effect processor multiplexing 
among eligible processes. 

Cox [Ref. 4] simplified the design of MCORTEX. He 
meauced the traffic controller to one level of abstraction, 
favoring reduced MCORTEX execution overhead over the 
security of the two level traffic controller. Cox’s other 
Contribution was the addition of a gatekeeper module to 
the entry to the operating system, so the user’s access to 
system Gaul les was Simplified. Klinefelter (Ref. 3) 
reneralized Cox°s work and developed a techniaue to 
dynamically interact with the operating system during its 
aeecution. 

Purine the early stages of development of MCORTEX 
Soemcurrent research efforts, within the ALGIS Modeling 
mot.) Were producing a multi-user CP/M-86 based disk 
sharing environment. It was envisioned this system would be 
used to develop software in support of the SPY-1A processing 
emulation. 

kowe [Ref. 6] . brought the powerful, highly portable 
functions of the multi-user CP/M-86 operating system under 


iS 


the control of MCORTEX. He also developed access mechanism 
to the MCCRTEX supervisor compatible with Digital Research’s 
PL/I-&6 language systen. User programs could then be 
developed ina high level, portable language. The kernels of 
MCORTEX, system processes, and user processes could then be 
loaded into single board processors from the CP/M-~EE 
environment. Just aS importantly, access to the disk sharing 
capabiltities of the multi-user CP/M-86 system, via MCORTEX 
processes, was made possible. Rowe's efforts were a 
Gab) Je aga Goel ie oh o6 of the planned synergism of the individiiem 


res@arcn projects. 


C. STRUCTURE OF Wt Tatoos 
The goals of this thesis are to: 
1. Extend the existing MCORTEX real-time executive for 
a single cluster of single board computers with 
Shared memory to a” redi= limes exeewt) vet toe 
multiple cluster system without shared memory. 

2. Extend the existing MCONTER without “ani roone ra 
substantial changes either to the MCORTEX executive 
or its primitives. 

o. Use the Fthernet interface between clusters to 


communicate systems data. 


Chapter I discusses the overall intent of the AEGIS 
¥eavons system Simulation Project and the emphasis area this 
thesls covers in accomplishing oro jec ieeodmes 


ie 


Chapter II presents design concepts and criteria for the 
Original MCORT#X model and the distribution model upon which 
miemextension to MCORTEX is based. 

Chapter gi) 1s a presentation of the system 
architecture, with primary emphasis on hardware components. 

Chapter TV¥V details the system design of MCORTEX, 
including the method oy which user pdrocesses fain access to 
Meme rnet Services. 

Chapter V 1s a thorough presentation of the development 
of user processes and the modifications to the MCOFTEX 


loader. 


Chapter VI is asummary of the current state of the 
System, with particular emphasis on future enhancements and 


scheduled modifications. 


lia, 


II. THE EVENTCOUNT MODEL 


—_— = =o — 2 eee eee 


A. A MODEL OF SYNCHRONIZATION 

A computer system that manages resources used by 
COMe MRT e My ly operating, independent users requires a 
mechanism that allows processes to synchronize the use of 
Shared resources. 

The most common existing models of synchronization 
based upon the principle of mutual exclusion and shared data 
to achieve synchronization. Semaphores [Ref. 7] and monitors 
(Ref. 8] are based on the concept of mutual exclusion. In 
this context mutual exclusion is a mechanism that forces the . 
time ordering of exeécttion of pieces of code, \)eaneee 
Critical sect pons: 

The characteristics of the semaphore and mon Vos 
Synchronization models have undesirable effects. These 
effects include complex proofs for program correctness and 
limitations on applicability to distributed systems. 

The model upon which MCORTEX is based is an event 
oriented model of sy ichroenizaticnw 2 enue processes 
coordinate their activities by signalling and observing 
events via synchronization variables, known as eventcounts. 
and | sequencers. These synchronization variables are 


interfaces for all interaction among processes. It is 
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Mormaliy wunneccessary for a process to know the names or 
residences of other processes. 

This todel makes no asSumptions about the environmental! 
properties of Systems and consequently is directly 
applicable to distributed systems. A distributed system is 
defined as a System which, due to the lack of a common 
memory, requires communication among processes to be via 


comnunication channels involving unpredictable time delays. 


B. MODEL VARTABLES 
1. Eventcounts and Sequencers 

Unlike the semaphore model, the MCORTEX model 
solves the synchronization problem in terms of timing 
Mfetraints on occurrences of events, instead of mutual 
M_eimeicotONees &©VENLS dre divided into event classes and events 
of a given class are represented by an associated 
synchronization variable of the type "eventcount.— 
Prinitive operations exist that permit processes to signal 
Pameeouserve occurrences of events. 

The eventcount alone is inadequate in certain types 
of timing constraints problems. This type of synchronization 
problem has the characteristic that the order of different 
Mmetrvities 1S not specified in advance. Instead the 


Synchronization system dynamically defines a total order 


among them. To deal with this type of constraint a 


Lg) 


synchronization variable, known aS a sequencer, is 
needed, 

An eventcount is primarily a count of the number of 
events of a particular class that have occurred in the past. 
It can be considered a non-negative integer variable whose 
value never decreases. This is reasonatle, since events 
Cannot ‘unhapven. 

ae NO Lr rani teaver 

To signal the occurrence of events, an advance 
Primitive is used. Two primitives, await and read, are used 
to obtain values of eventcounts. & primitive operation 
advance(E) signals the occurrence of an event in the class 
associated with the eventcount E. This operation increases 
the integer value of E by 1. The value of the eventcount 
equals the number of advance operations performed on it. The 
initial value of an eventcounmt 1s zemo. 

4 process can observe the value of an eventcount in 
one of two ways. The value may be read diré€ctly using the 
primitive read(E), or the process can block itself until the 
eventcount reaches a specific valve v using the await(E,v) 
Primitive. The value returned by read(E) counts all of the 
advance operations that precede the execution, and may or 
may not count those in progress during the read. The result 
of read(E) is, therefore, a lower bound on the current value 
of & after the read, and an upper bound on the value of E§£ 


before the read. 


2B 


Prevent wasp rOCeSs May Pot wish to continue 
Saeeibineg wnless an event, inacilass 1n which it has 
interest, nas occurred. ‘4 busy wait could be implemented 
easily by looping around an execution of a read(£) primitive 
until a specified value of the eventcount, EF, 15 reached. 
The imnpvlication of wasted CPU cycle time is evident and in 
many instances could be avoided. 4 process can voluntarily 
block itself with an await(E, v) primitive call. The calling 
process will remain suspended (i.e., not ready fOr 
execution) until the valve of E is at least v. Processes 
written in PL/I - like pseudo-code, as illustrated in Figure 
1, demonstrates the use of the advance and await primitives. 
The producer and consumer process must synchronize their use 
memecesnaread N-celi circular buffer. The circular buffer is 
implemented as an array in shared memory with i1ndices from 
fee N=. )6oTwoO eCventcounts MESSAGE IN and MESSAGE OUT are 
used to synchronize the producer and consumer. The producer 
generates a series of messages by calls on a function 
“receive message and stores the i-th iteration in 
message _ouffer((i-i) mod N}. The consumer reads these values 
wee ot the buffer in order and consumes them by calling a 
“xmit_message subroutine and advancing eventcount 
MESSAGE OUT. 

The two eventcounts, MESSAGE IN and MESSAGE OUT, 
Seoradinate the use of the buffer so that: 


(1) the consumer does not read the i-th message from the 
buffer until it has been stored by the producer, and 


Ga 


producer: procedure; 


i = @;} 
do while (FOREVER); 
j = read(MESSAGE_IN); 
k = read(MESSAGE OUT); 
if ((j - k) >= N) then 
call await(M®SSAGF OUT, xk + 1); 
/* if difference in eventcount values 
exceeds tuffer length then block */ 
message buffer,i MOD N) = receive message; 
call advance(MESSAGE IN); 
i=i+1s; 
end; /* do while */ 


end; /* procedure */ 


consumer: procedure; 


i= 1; 
do while (FOREVER); 
call await(MESSAGE IN, i); 
/* if MESSAGE IN < i then block */ 
call xmit_nessage(message buffer((i-1) MOD N)); 
call advance(MESSAGE OUT); 
Te 1. 2 
end: /* do while */ 


end; /* procedure */ 


Figure 1 Producer~-Consumer Process Synchronization 


ee 


(2) the producer does not store the (i + N)th value into 
the buffer until the i-th value has heen read by the 
consumer. 

wa loin envanle 0) 1OlLe that in the above prodlucer- 
consumer example, each eventcount has only one writer. In 
the usual semaphore solution both processes would modify the 
same synchronization variable. For example, let P({S) 
represent the synchronizing primitive where processes wait 
for S (som2 resource) to become greater than zero and then 
aamoerdct 1 from S before proceeding. Further, let V(S) 
represent the synchronizing primitive where the processes 
add 1 Vm oe rore th roceed ine. with this’ type of 
Synchronization the consumption and production of a result 
or resource reqnires that all processes read or write S. A 
reduction in write competition often occurs in eventcount 
mmeeions, resulting in simplified correctness proofs and 
Simplifying the synchronization of physically distributed 
processes. 

The power of eventcournts rest in their ability to 
Meme ve synchronization through a relative ordering of 
events, rather than by mvtual exclusion. In the previous 
example, concurrency of execution is guaranteed if the 
producer starts out several steps ahead of the consumer and 
the speeds of production and consumption are equal. In that 
case there does not exist a time when the consumer. or 


producer must wait for the other to complete an operation. 
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In synchronization problems that require exclusive 
use of a resource, the eventcount alone 1S inadequate. Two 
or more processes desiring to use a shared resource OT 
write to a shared buffer location are natural examples. 
Another kind of an object, known aS a sequencer can be 
used to provide the needed total ord€ring. & Sequence nia 
considered a natural number generator, i.e, it returns the 
sequence @,1.2,..., etc. Only one operstion exists Sonu 
sequencer —- ticket. When applied to a sequencer S, ticket(S) 
returns a non-negative integer value as its result. The 
ticket primitive is based on the idea of the first-come 
first-served principle used in everyday life. A ticket 
machine in a catalog sales store or shoe store is an 
example. The ticket machine issues Successive integer Vane. 
on the ticket, and the next customer to be served is based 
on the number on the ticket. The store clerk can determine 
the next person to be served by merely adding one to the 
previously served number. The customers are served in first- 
come first-served order. If a customer with the ex totais 
number has walked out of the store when his number is 
called, he loses his turn and must get another ticket. This 
service policy is usually implemented in both stores and in 
computer operations by a watchdog timer. 

The use of sequencers implies mutual exclusion not 
present in eventcounts. In the case of multiple producers, 


in a producer-consumer relationship, all message deposits 


c4 


must be mutually exclusive, but it is highly undesirable to 
place ana priori sequence constraint on several producers. 
Paen producer obtains a ticket number from seauencer S for 
depositing its message in the buffer. Once a process obtains 
a ticket, it merely waits for the completion of ail 
producers that obtained prior tickets. Each producer 
executes the code illustrated in Figure 2 and each consumer 
executes the same code shown in Figure 1. 

The producers block in the following circumstances: 


(1) Another producer has a lower ticket value and as yet 
has not deposited his message. 


(2) The single consumer is unable to keep up with the 
messages deposited in the buffer. 
Ge A DISTRIBUTED SYNCHRONIZATION MODEL 
1. Asynchronous kventcounts 
In distributed clusters without shared memory, a 
change to an eventcount (via advance) takes time to 
propagate down communication lines to other systems. Two 
major options exist: (1) implement all eventcounts so that a 
Biven eventcount exists only in the cluster where it is most 
frequently accessed. All other clusters which need the value 
must make remote accesses to the value. (2) distribute the 
eventcount values, so that each cluster maintains a local 


copy. The latter option is that selected in this extension 


or MCORTEX. 


Zio) 


producer: procedure; 


do while (FOREVER); 
t = stderr 
/* producers synchronize */ 
call await(MESSAGE IN, t)+3 
/* 8. “Chiles point “in execution it’s this 
processes turn, but now must 
synchronize with the consumer */ 
j = read (MESSAGE_IN); 
k = read(MESSAGE OUT); 
if (C= ey o>] Ne rnen 
call await(MESSAGE OUT, k + 1); 

/* if buffer is full then block */ 
message buffer(t MOD N)=receive_message(); 
call advance(MESSAGE_IN); 

end; /* do while */ 


end; /* procedure > 


Figure 2 Multiple-Producers/Single-Consumer ielationship 
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ne) cerinew a }ocal eventcount to be an eventcount 
which is not eccessed outside the cluster. we define a 
memore e€ventcount @s one which 1S accessed in at least two 
clusters. A producer at a cluster simply advances an 
eventcount. If the eventcount is a remote eventcount, the 
operating system generates the necessary commands which 
advance a local copy as well as the remote copies of this 
eventcount. The distributivity of the eventcount is 
entirely transparent to the producer and consumer. Only the 
Operating system knows in which cluster the producers” and 
Gonsumers reside during their lifetime. 

By transmitting the eventcount value, the 
movuustness of Pico S LenS a5SUred - Even if Boe 
transmission message is lost ocr not properly received, the 
Pioveenvexteadvance and a subsequent successful transmission 
will bring the remote copy up to its correct value. The non- 
decreasing nature of the eventcount value accounts for this 
meoustness. 

The design nodifications to MCORTEX to allow the 
eventcount values to be distributed are fully presented and 


discussed in Chapter 4. 


en 


ww ee oe - — a ee 


1. System Configuration 
A cluster of Real-Time Cluster Star (RTC*), as 
Shown in Fiswrewec. is based on the INTEL iSBC 86/12A 


single board computer (SBC) with MULTIBUS serving as the 
Imtvecluster bus. Figure 4 illustrates two clustiems 
connected by the Ethernet LAN medium, which serves as the 
intercluster bus. 

Although only four SBC’s are shown at each cluster, 
the limitation is entirely dependent on the number of bus 
masters. A bus master can drive the command and address 
lines: it can control the bus. Since multiple dus tasters 
exist in this configuration, some means must be available in 
hardware to arbitrate their simultaneous requests to USeune 
MUI BUS. A custonized random priority bus resolver, 
designed specifically for this system, serves a maximum of 
eight bus masters. A bus slave, such as a RAM board, Cannot 
control the bus and does not require arbitration circuits 

Two shared memory boards also share tne MULTIBUS. 
A S2K RAM extension board is used as Shared memory for 
process synchronization and control under MCORTEX and for 


CP/M-86 multi-user system control. bh 64K R4&M extension 


board provides additional shared memory required for user 
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process data communications. Two hard disk systems are 
available for application process vse within a cluster ai 
YEMEX hard disk system has a disk controller card which 15 
placed in an odd slot (reauvired for a dus master) in the 
MULTIBUS backplane. 

The InterLAN NI501@ Ethernet Communications 
Controller is a MULTI BUS-based single board processor which 
along with a transceiver provides the cluster with a 
complete connection to an Ethernet medium. This 1S 9a 
hardware extension to the cluster which allows MCORTEX to be 
distributed over tae Rinerier. 

Although only two clusters are shown in Figure 4, 
the Fthernet specification [Ref. 9] allows for a maximum of 
1624 nodes. However, the limiting factor in MCORTEX is the 
number of clusters that can be addressed with the current 
packet routing algorithn. As will be discussed in Chapter 
4, the upper bound is 16 clusters which iS more. than 
adequate considering the current availability of only two 
NIS?@1@ boards and three NI321@ boards (erhanced version of 
the NIS01%9) 1n the AFGIS Simulation Laboratory et the ue 
Naval Postgraduate School, Monterey, California. 

An experimental system that contains both analogous 
and dissimilar components to that of hKTC* is CM* [Ref. 16) 
The most important comparison is between CM*’s Kmap and 


FTC*°s NI3S?@1% and Driver. The Kmap must effectively route a 
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shared address between clusters, whereas the NI80@10 Driver 
routes an entire datagram of information. The i1ntercliage 
response time of Kmap is on the order of 56 microséconds, 
while the Ethernet is on the order of m1lliliscec¢oagee 
Therefore, the use of Ethernet 15 approvriat® ae 
relatively long messages with not very demanding response 
times are used. The Kmap has a relatively low transfer rate 
with fast response tines. Additionally, the cost of the 
NIS@1i?@ and the Driver development, tne flexibility, and its 
extensibility is far Superior to the Kmap. The NIG210 is 
expected to further increase the speed and efficiency of 
inte€rcelvster commumicatiomde. 
2. The iSBC 86/124 Single Board Computer 

The iSBC 86/12A board includes a 16-bit CPU, 64K 
bytes of dynamic RAM, a Serial Commurications inepiaieer 
three 8-bit programmable parallel I/O ports, ovrogrammatle 
TIME rs, PFIOTItY INterruptes Cont cere pi inte@riaie 
control logic, and bus expansion drivers for interface with 
other MULTIBUS interface-compatible expersion hoards tae 
iSRC 86/12A board has an internal bus for all onboard memory 
and I/O operations and accesses MYULTIBUS for all external 
memory and I/0 operations. Therefore, 19cal (onboard) 
operations do rot disturb the MULTIEBUS interface available 
for parallel precessing when several bus masters (e@.¢., D4 


devices and other SBC’s) are operating concurrently. 
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The iSBC&86/12A provides a three level hierarchical 
mse structure. Miemeene S317rs; level, the 64-6 processor 
mermmunicates through the on beard bus with un to S2k of KOM, 
with serial and parallel I/O ports and with tne dual-port 
meeemeecontrol and access to local RAM 1s vrovided by the 
second level dual-port bus. The third bus level, the 
muri PUS interface, provides access to the MULTIBUS. The 
Meesently used wiring option prohibits off board access to 
local RAM, so that the local RAM is protected from external 
eomvamination. 

Pree Lue 80eG Wicroprocessor 

The 8686 microprocessor, the heart of the single 
board computer, performs the system processSire functions and 
generates the address and control signals to access memory 
and I/O devices. 

Waals high performance, reneral purpose 
microprocessor base of the iSBC86/12A4 contains ar 
Execution Ut nlomand asbus interface Unit (BIU). BU 
functions are supported by instruction fetches and operand 
meres and writes conducted by the BIU. ieemen le) eCainc tl ach 
mrrictions in an internal RAM to a level of $s1x deep 
Mm@ereasing EU Efficiency and decreasing bus idle time. aA 1€- 
immu drithmetic/losic unit (ALI) in the EU maintains the CPU 
status and control flags, and manipulates the general 


registers and instruction operands. All registers and fata 
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paths in the ®U are 16 bits wide for fast interes 


transfers. 


The 2486 has eight 16 bit eveneral purpose 
registers. Four byte addressable regvisters, known as the 


data registers, can be used without constrairt in most 


arithmetic and logic operations. The remaining four are 
primarily pointer registers, but can be used as 
accumulators. Additionally, the 8986 has four Semen 


registers, an inStruction pointer register and a flag 
register with nine Status Dis. 

The 8886 can address up to one megabyte of 
memory, ‘viewed as a group of segments, as defined by the 
application. A segment is a logical unit of memory that may 
be up to 64K bytes long. The seament registers point to the 
four currently addressable sezments. Programs oftain access 
to code and data in other s@gments by Changing the seetiaam 
registers to point to the desired segments. 

ie Paks convenient to think of every memory 
location as having two kinds of addresses, ohvsical and 
logical. & physical address is a 2@-bit value that uniquely 
identifies each byte location in the megabyte sidress sige 
Physical addresses range from MH through FFFFFH. Programs, 
however, deal with logical insteai of physical addresses. A 
logical address consists of a base value and an offset 
value. Whenever the 31 accesses memory - to fetch an 


instruction or to obtain or store a variable -— it eenerates 
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a physical address from the logical one. nals is 
accomplished hy shifting the tase value left four bits 9 and 
magdaineg the offset. The resultant 2@ bit value is then use? 


omaccess memory. 


ernet is a local area network (LAN) optimized 
for the high-speed exchange of data between information 
processing eauipment within a moderete-sizel geographic 
meea we it is the result of a collaborative effort ty Dizgzita! 
Equipment corporation, Xerox Corporation, anil Intel 
Corporation. The Ethernet specification [Ref. 9] provides 
precise, detailed design information for a baseband local 
area network and, for brevity’s sake, only genfral asvects 
pertaining to the RTC* implementation will be discussed 
here . 

Pete umEmiDlenents the Lowest two layers of the 7- 
meyer. OSI/ISO model [Ref. 11 pp. 46-53]. The Date Lirk 
layer defines the format and addressing of packets that are 
Droadcast over the Ether , detects transmission errors, 
controls access of the network by nodes, and allocates 
Channel capecity. These functions are, in fact, implemented 
fmrecne NloGig Ethernet to MULTIRUS communications controller 
moera., ine functions carried out by this layer for sending 
miaerececiving transmissions are as follows. 

a. Data Encapsulation/Decapsulation 


Defining the format of message packets = jee 
different fields of information within the packets. 
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Const rue tame packets from data “su)0!) Tegan tite 
nodes through the higher layers; disassembling network 
messages and supplying data to the higher laver 
Protocols of Themnede- 


Aidressing - handling of source and destination 
addresses. 


Error detection - physical channel transmission errors. 


bd. Link Management 


Channel allocation ~- the length of time of channel use 
is determined by the packet size. 


Channel access ~- access to the channel 1s controlled by 
a contention-avoidance-ani-resolution technique, called 
CSMA/CD, part of which is carried out in each of the 
two layers. The Data Link level responds to the channel 
or carrier sensing of the Physical layer. This means 


that the sender defers sending in the case of traffic, 
sends in the absence of traffic, and backs off and 


resends the message a random time interval later eine 
case of collisions. 

The construction and processing of the packets that 
are transnitted on the Ethernet, is vart of the data 
encapsulation function of the Data Link layer. The Ethernet 
packet is made up of five fields, as shown in Figure 5 (all 
bytes are eight bits in leneth). The smallest total siemae 
a packet transmitted over Fthernet is 64 bytes, and the 
maximum size of a packet is 1,518 bytes (these figures do 
not include the eight-byte preamble). . Details of the fields 
are included in [Ref. 9], so the only field discussed in 
detail will be the destination address. Knowledge of this 
field will simplify the discussion of the packet routing 


algorithm presented in Chapter 4. 
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A packet can be sent toc one, several, or all nodes 
Simultaneously, through unique broadcasting and addressing 
capabilities. The address of the node (or nodes) that the 
maemet is intended for is placed in this field, which is six 
bytes in length. A node address can be one of two types: 


Physical address -—- the uniauve address of a single node on 
any Ethernet. 


Multicast address —- a multidestination address of one or 

more given nodes ona given Fthernet, of which there are 

two kinds: 
multicast group address - virtually any number of node 
groups can be assigned a vroup address so thev are al} 
able to receive the same packet ina single transmission 
by a sending node. This is a key feature in the packet 
routing algorithm to te discussed in Chapter 4. 
broadcast address — a single multicast address by which 
a packet can be sent to the set of all nodes on 64 given 
Ethernet. 

The first bit in the Destination Address field is 
set to indicate a ovhysical or multicast address. The 
remaining 47 bits specify the address itself. If a packet is 
to be broadcast to all nodes, the 47 bits are all set to 
“4. The 47 remaining bits allow for 2 ** 47 (over 147 
trillion) possible addresses. 

The Physical Layer of Fthernet provides a ten- 
merry on—bit-per-second channel over a coaxial cable medium. 
It specifies all the essential physical characteristics of 


Ethernet, including bit encoding, timing, voltage levels, 


and two compatibility interfaces. 
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The main f£UNETiONsS Of  thtomlaver,c -e. 


Data encoding/decoding: 
Generation and removal of 64 preamble bits before each 
packet is transmitted for synchronization and timing or 
messages. 
Bit encoding and decoding —- between the binary encoded 


form of the Data Link level and the phase encoded form 
reouired for transmission on the coaxial cable. 


Manchester phase encoding is specifiei for all data 
transmitted on the Ethernet at a data transmission rate 
of ten million bits per second (1@ Mbps). 

Channel Access 
Transmission and reception of encoded data. 


Carrier sense ~ monitoring the channel! for traffic and 
Signaling the Data Link layer if traffic is detecteqs 


Collision detect - signaling the Data Iinx layer, 
during transmission, when a collision is detected. 


Two important COMpatLni lwty interfaces, the 
transceiver cable interface ard the coéxial cable interface, 
are also specified in the Physical layer. Detailed 
information regarding theSe interfaces is contained in 
[Ref. 9]. 

S.  NIS@1@ Ethernet Communication Controller 3oard 

In the following discussion of the NIS@1? “5s 
operation, reference to a host is synonymous with a single 
board computer ina cluster which Satan the device drives 
for the NIJI301@ board. Details concerning this drivers 
System role are contained in encnen 4. 

The NIS@1@ ZSCCER is a MULTIBUS~-compatible component 
that implements layers one and two of the ISO/OSI 7-layer 


model. Although pvrogramnable as a polled or interrupt-driven 
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iieeeeaoevice, it 2s used entirely as an iinterrupt-driven 
component in this implenentation. The NI3@1@ serves as a bus 
master when controlling the DMA operations tetweer the 
NI3310 vuffers and the host’s memory, andas a slave to the 
commands of the host. 

The host controls the NI3@1¢% by writireg to onboard 
registers which are MULTIRUS addressable I/O Wort s . 
Depending on the state of execution, the host may direct the 
NIS@10: 

(1) To perform a load commard 

(2) In preparation for a DMA operation - load a memory 
address anda byte count, or 

(3) To enable an interrupt register, to inform the host 
when a directed operation is complete. 

The host programs the NIS013 by writing a command 
to the command register, whose I/0 address is curreitly set 
at BOH (base register). The command function codes are 
contained in Table 3-1 of [Ref. 12]. After issuing 26 
comnani, the host must check for a value in the Command 
Pees Resister. The details of this read overation are 
covered in [Ref. 12], but briefly: Any value other thar zero 
or one in the Command Status Register, following execution, 
represents a board failure. If at any time during MCOnTEX 
ex€cution a diagnostic appears that indicates an NISG1YV 
Dodra failure, the RTC* system operator can run a diagnostic 
program that fully exercises the board. The code and 
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Invocation procedures for this didgenost icy oun... is 
contained in Appendix L. 

Of particular importance is the reyuirement to read 
the Command Status Register at the beginning of any code 
that controls the NIS@10. This i5 neccessary berause Oia. 
power-up diagnostic that runs at system start—-Up Or Cueto. 
MULTIBUS reset. This automatic testing feature places a 
value in the Status Register that must be read to clean 
register before any commands can te issued to the NI&G1e@. 

The NISA1A transmit process consists of obtaining 
data packets from shared data memory, via a DMA operation, 
fornine them into Ethernet frames, and successfully 
delivering them to the intercluster bus (the Fther ). 

The following describes what happens’ when a 
transmit packet goes from MULTIBUS memory to the NIS?@10; 

(1) The host writes an interrupt code of zero to the 
interupt enable register on the NIS@10. Writing this 
register clears the N13010°s interrupt line 
‘currently set for interrupt 5)% 

Note: This step ensures that the DMA controller 
does not start a DMA transfer as soon as tne byte 


count registers contain a non-zero value. 


(2) The host writes a 24-bit MULTIBUS memory address into 
the NI3010°s bus address registers. 


(3) The host writes the packet’s byte count into the 
NI3@1A°s byte count registers. 


(4) The host initiates a DMA transfer bv writing to the 
interrupt enable register an interrupt code of 6. 
The NIS@1@ will now interrupt the host processor when 
it comoletes the DMA trensfer. 
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(5) 


cS) 


packet 


The NI3019 moves the trarsmit packet from host remory 
to its transmit buffer (only one packet at a time may 
be resident in this buffer). After accepting each data 
byte, the DMA controller increments the address in the 
bus address registers and decrements the poyte count in 
the byte count registers. When the byte count reaches 
zero and its transmit register is empty, the NIdSG1¢ 
Mea corhupusmpne sos Drocessor. This 15 a tTransmit- JMA- 
done (TDD) interrupt. The transmit data is now stored 
mie tne transmit buffer. 


To transmit this data or the Ethernet, the host issues 
a Load transmit Deta and Send command (29H). The 
NIS@1€ carries out the command, refléctinz its status 
in the register. The host must read the status 
register. 


The following describes what happens when a receive 


goes from the NI3@10%°s receive oaueve (16K byte 


capacity) to MULTIBUS memory: 


it) 


(4) 


(6) 


The host issues an interrupt code of 4. This enables 
a receive-block-available (HBA) interrupt from the 
NI3@106. 


The host gets a receive-block-available interrupt. The 
host now knows that the NI3@10°s receive queue has a 


frame awaiting transfer to MULTIRBUS memory. 


The host writes an interrupt code of zero to tne 
NI301%°s interrupt enable register. Vl tiene os thas 
register clears the NI3010’s interrupt line. 


Note: Just as in the transmit process, tn1is step 
ensures that the DMA controller does not start eae 
DMA transfer aS soon as the byte count register 
contains a non-zero value. 


The host writes the 24-bit MULTIBUS memory address 
into the NI301@’s bus address registers. 


PMesMOStewnhttes tne byte caunt of its MULTIBUS buffer 
into the NI3@1@’s byte count registers. 


The host initiates a DMA transfer. It does this by 


issuing ar interrupt code of 7. This also enables a 
receive-DMA-done interrupt (RDD) from the NISO1A€. 


41 


(7) The NI301@ moves the received frame from its receive 
queue to host nenory. The NI321¢@ preceeds the packet 
with a frame status byte, anull byte, ard two bytes 
containing the frane’s byte length. After transferring 
each data byte, the DMA controller increments the 
address in the bus address registers anc decrements 


the byte count in the byte count registers. The VI3812 
generates a receive-DMA-done interrupt when Le 
finishes transferring the frame or when the byte count 
reaches zero. 

(©) The host responds to the RDD interrupt by issuing ar 
interrupt code of zero, disabling the interrupt ae 
the NI3401¢ board. 

The determination of the order in which commands 
are given is entirely dependent on the application. The iGk 
byte receive buffer allows the host to read this buffer (via 
RDD interrupt operation) at its own convenience. Tg 6S 
buffers the MULTIBUS from the unpredictable arrival times of 
intercluser traffic, consequently reducing the time-crigee 
service requirements on the receiving cluster. In contrast 
is the 2K byte, single packet, transmit buffer. The hest 


System should strive to favor outbound packets to reduce the 


processing delay by any processors 11 the cluster. 


B. SOFTWARE SFEVICES 
1. Operating Systems 
A copy of a kernel of MCORTEX resides 1n “€agn 
processor's local memory and is a part of the address space 
of - each local process. Additionally, GLOBAL memory 15 
accessible to MCORTEX to facilitate interprocess 


Synchronization. Processes are scheduled for execution by a 


kernel of MCORTEX on each SBC. Any process that advances an 
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eventcount or calls the await primitive risks surrendering 
Roel o ai igier priority ready to run process. A call to 
the advance primitive elways results in a call to tne 
Seeeuerss lt stne “Calling process is still the highest 
memority ready to run process, it will continue in its 
execution, otherwise another virtual processor will >be 
scheduled to run and the original process will be blocked 
Meready if an advance oreration, waiting if ar await 
operation). 

Ir the event there are no user processes in the 
realy state, the kernel’s idle process will run. This 
process blocks itself every 4 milliseconds and calls the 
kernel scheduler. If any offboard operatior caused = arn 
onboard process to te readied, as the only process ready to 
run , foerieimemscheduied. The idle process is always 
“ready to run, of course, but it has the lowest oossible 
Bmerority. 

This implementation of “MCORTEX is a major change in 
the philosophy of previous versicns, whereby a systen 
marerrupt under MCORTEX control, iy Omen GL 1 On with 
interrupt flags maintained in GLOBAL memory, proviaed 
communication initiation between real processors. Upon 
Beaceiving an interrupt, €@ach processor checked its flag in 
GLOPAL memory to determine if the interrupt was interded for 
a process in its local memory. If not, the process 


executing at the time of the interrupt continued. Otherwise 
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a call was made to the MCORTEX scheduler ard the highest 


priority ready process was given control of the CPU, For 
communication between processes in local memory, no 
interrupt was issued, a call to the scheduler was made 


ieee tise 

The use of the interrupt was inconsistent with the 
philesophy of switching processes only at safe points in 
their execution. These safe points were required because 
of non-reentrant PL/I-86 user process code. An interruypt 
must not occur during a call to a PL/I procedure that is 
Shared among multiplexed processes. Therefore, the original 
design had a design error which neened correction. 

Also, the use of a preemptive interrupt to siznal 
a possible change to all real processors in a cliusten eee 
somewhat counterproductive. To cause all real processors to 
be disrupted in their execution, jtst because as few as one 
virtual processor was made ready, is unjustifiable. However, 
this preemptive interrupt structbre has been Gain tai) ae 
MCORTEX ain the event ahigh priority process must be 
scheduled. A primitive known as PREEMPT, provides this 
capability. The PREEMPT primitive is the mechanism to 
schedule time urgent processing which is vital in real-time 
Systems. PREEMPT, however, must he used carefully and 
Sparingly. Processes that are time critical must only use 


reentrant code, so that when a return from the time critical 
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MmmeeesS iS completed, the state of the system is not 
fees curbed. 

Access to MCORTEX is through the supervisor at the 
outermost layer of the MCORTEX four level Sec biure 
discussed by Klinefelter [#fef. 5 : pp. 44-46]. 

Also resident in each local menory, if reavuired, is 
the C?/M-86 operating system. Mieuiis. Cont foupyation ~ t 12 
full range of CP/M-86 utilities, [Fef. 12] and [Fef. 14], is 
meeeeranlie to the user. Additionally, development of user 
processes can make use of any of the broad scope of 
commercially available products compatible with cOP/M-86. 
Figure 5 gives a representation of the locations of the 
mereem code. The diagram includes the location of DDT-86 as 
required for a debugging session. A developer of user 
processes should anticivate needing this powerful debugging 
tool; the space should remain reserved. f£lso depicted are 
the locations of the MCORTEX/MXTRAC® loaders. Bure ia 
load, loader memory is not reserved, and care must be taken 
to ensure that a CMD noivle’s code or data section ioes not 
everwrite it. It is permissible, however, to inciude this 
memory as part of a module stack or free space, since these 
Structures are developed at module runtime when loader 
functions have been completed. 


a 


meat 


Sete nOocesses 


User processes may be located in areas indicated in 
Figure 6. Additionally, if CP/M-86 utilities are not 
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required, memory reserved for CP/M-86 may hold user 
processes. 

Descriptions of processes in memory are provided to 
MCORTEX through the CREATESPROC ovrimitive. eseee Gor 1 x 
fmometion gives the process a unique identification number, 
Ervority, stack (SS and SP registers), next execution 
address (CS and IP registers), data segment (DS register), 
and extra segment (ES register). MCORTEX establishes the 
Meeeess initial context using this information to create a 
mieriuual processor, which is a software abstraction of a real 
processor. The virtual ProcessereexiStS aS a combination of 
data, both in GLOBAL memory, and in eCach process stack. When 
executing, the virtual processor becomes identical with the 
real processor state. Relinauvishninge the CPU forces the 
virtual processor status into GLOBAL memory and the process 
stack into local memory. 

As described by Rowe {Ref. 6: p. 28], special 
effort has been made to accommodate vrocesses created under 
PL/I-86 and linked using LINK&6. LINK86 concatenetes all 
PL/I-86 code segments into one segment and data segments 
into one segment. Thus, PL/I-86 processes consist of a 
series of contiguous code segments followed by a series of 
contiguous data segments. Additionally, at run time PL/I-86 
mourines create a stack following the data area. anda free 
space following the stack. The resulting configuration is 
shown in Figure 3 of [Ref. 6]. 
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Access to all data areas resulting from a single 
mone, is referenced to a common data segment. stack 
pointers are referenced to the stack segment register, and 
free Space pointers to the extra segment register. 
Additionally, some PL/I-86 runtine routines assume the 
contents of all three segment registers (DS, SS, ES) are 
meentical. 

The MCORTEX CREATESPROC parameters include the 
gsorite location of process start, stack, and data. oe 
this reason it is advantageous to locate processes 
absolutely when linking. LINK86 provides such an option 
MieteeeoS =: p. 7.6], however, the ABSOLUTE option is 
applicable to the entire CMD file created and cannot he used 
to distribute the file non-contiguously in memory. 

Rowe (Ref. 6] experienced some difficulty using 
LINK86 as described in [Ref. 13]. His observation was 
entirely correct, but it was easily corrected by generating 
a rew CP/M-86 operating system using Version 1.1 CCP and 
BDOS (integrated with a modified BIOS). Version 1.6 
contained an error that caused the 128 byte header, 
meeceding CMY) files, to be parsed incorrectly at file load 
time. Details concerning this header are contained in 
[Ref. 14]. The BIOS was modified due to the removal of the 
bubble memory board from the multi-user CP/M-86 system. This 
Bueeess Of fenerating a new CP/M-86 operating system is 
described in adequate detail in [Ref. 14!. The details 
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concerning the multi-user CP/M-86 system BIOS is aescribed 


in [Ref. 15] and Wiltenet fe rel erated tear 


50 


(co nem prOocesseSeare Of a time-critical nature, 
and as such are always resident in memory. The time reauired 
to swap a real-time process out of memory, to make room for 
emevner, would consume the very same resource beireg 
allocated - the CPU. The early designers of MGOr en x 
@omsidered this issue carefully and the result 1s a1 
operating system that minimizes context switching overhead. 


MCORTEX processes reside permanently in memory ‘once loaded) 
oorameonly CPU registers, critical to a context switch, are 
moaiftied. Just as imoortant are issues such as 
(1) allocation of shared resources, (2) process integrity, 
‘3) process SyMemrond 7eti ot, and (4) interprocess 
communication. 
e. Shared Resources 

(eineam cluster  (Fipture 6) are three critical 
shared resources : the NI3A#1@ ECCB (i.e., Hthernet), common 
memory, and shared memory itself. The hierarchical ous 
Structure limits the access of each real processor to common 
memory and shared memory, and the bus arbiter grants access 


in a random manner. Each processor executes processes in its 


own local RAM and only makes memory accesses outside that 
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range when MCORTEX prinitives (access to common memory) are 
used or data computed by a producer must be placed in shared 
merory for consumptior by ancther process within that 
cluster. MCORTEX performs its functions By sett i i eee 
section of common memory called GLOBAL memory. Table 1 shows 
how this shared resource is logically orgenizei (Appendix H 
contains the actual memory locations). 

fecess to GLOBAL memory is resolved through the 
combination of a hardware bus lock (LOCK prefix oreceding a 
machine level inst Pu ct ome and a software lock 
(GLOBALSLOCK) located in GLOBAL memory. MCORTEX pr imi tev 
that access GLCBAL memory set the hardware hus lock tnrough 
the PL/M-86 function LOCKSSET [Ref. 16]. The real processor 
executing the kernel, that is eryecuting LOCKSSET , 15 
Piven sole access to the MULTIBUS for the duration of a 
Singies Austrucyion. A LOCK prefix preceding an KCHG 
ins ime ttn causes a value in a register (contents 77H) to 
be exchanged with GLOBALSLOCK. The processor then examrines 
the contents of the exctnaice Test. on If the register mie 
contains zero, the processor is franted access, 1f NOL gaa 
kernel repeats the procedure until a zero is obtained from 
GLOBALSLOCK. The XCHG instruction reauires two bus cycles to 
Swap S8-bit values, thus without the LOCK prefix it is 
possible for another processor to obtain the bus hetween 
cycles and gair access to the partially-updated GLOBALSLOCK 


semaphore. when relinquishing the software lock, the kernel 


ie 


TABLE 1 - GLOBAL MEMORY 


OFFSET MNFMONIC TYPER/INIT KEMBRKS 

Q MOCALSCLUSTERSADDR  aW X Address of this cluster 
EVCSTBL/1a@) S Event count table 

2 EVCSNAMF P Fe Event count name 

= VALUE W 4) Event count value 

5 REMOTESADDR W FF Remote addr of remote 

Copy 
7 THREAD R re Event ecoun ti read 


VPM(MAXSCPU * MAXSVPMSSC2U) 
Virtual processor mand 
UME SG EIU). a 
MAXSVPMSSCPU = 19) 
Viertuaiworecessor 10 
Virtual processor state 
Loertuameprecessor pri. 
Count awaited 
stack pointer register 
Stack sexment register 


AG2 We IL 8, 

6035 Veco tATr 

604 VEoP anor iT y 
605 FVCSAWSVALUF 
607 SPSREG 

609 SSSREG 

1602 GLORALSLOCK 
16¢3 NKSPPS 

1604 NRSVPS(MAXSCPU) 


# of real processors 

# of virtual processors 
> byte for each possible 
, MAXSCPU currently = 14) 


Sole MocME ME E- 3eo Meola s) 
QQ @ dos bd Od 


cC?>-— 
iW Oo 
eS 
M 


1614 HDWSINTSFLAG(MAX$CPU) 





X H/W interrupt flag (one 

| : POwseagnspossivie CPU, 
| MAXSCPU currently = 1@) 
| 1624 EVENTS B 1 Number of everts 

fmezo CPUSINIT R 4) Log in CPU number 

ioee2o SEQUENCERS B Q Number of sequencers 

SEOSTABLE (1A) S Sequencer table 

1627 SHOSNAM® R a Name of sequencer 

1622 SEQSVALUE W X Value of sequencer 

1927 

me byte W - word SaaS trierure Mo tovni nit talized 
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merely sets GLOBALSLOCK to zero. The “pranularity of 
locking by the kernels, is all of GLOPAL memory, i.e., no 
two kernels have access to GLCBAL memory simultanecusly. 
Users have no access to GLOBAL memory, however 
MCORTEX provides for user control of shared resources 
throvgh data held in GLOBAL memory. Sequencers, locaten in 
the sequencer table section of GLOBAL memory, are used to 
provide a turn taking nechanism. Each shared resource is 
assigned a corresponding sequencer. When processes require 
a resource, they reauest a turn throvgh the supervisory 
function call TICKET, specifying the applicable sequengew® 
TICKET returns a number indicating the callers turn ati 
required resource. TICKET advances the sequencer value in 
GLOBAL memory so that succeeding reanvests receive “aaeien 
numbers. Given the situation where a “busy wait is not to 
be employed, a process requesting the resource then makes 
another supervisory call, this time on AWAIT, providing both 
an identification of the resource and the process turn 
number. If the resource is not busy, the prosess will 


receive immediate access, otherwise the process gives up the 


Cruic 
5. Process Integrity 
The design of MCORTEX relies heavily on user 
cooperation for process integrity. The supervisor controm. 


access to the MCORTEX functions, but even this is a software 


control and a process that intentionally or inadvertently 


o4 


destroys GLOBAL data would be disastrous. Although local RAM 
jmemae processor 1S inaccessible from MULIIBUS, thus protected 
from a runaway process, common memory and shared memory 
aeemenot. Protection from this type of failure requires 
hardware protection not presently in the system. The low 
cost of microcompliters however, allows for redundart tack 
up systems which can limit the effects of such fail»vre due 
bo a Processor hardware fault. 
4. Process Synchronization 

Process Siete omadtiOnws1s caccompli shed under 
MCORTEX through the functions ADVANCE, AWAIT, and PREEMPT. 
These Synchronizing primitives are supvorted with the 
functions CFEATESEVC, CPEATESSHO, READ, DEFINESCLUSTER, 
DISTRIBUTIONSMAP, and TICKET. Consumer processes use AWAIT 
to ensure that data they require is ready. Producer 
processes use ADVANCE to inform consumers that a new 
Mmeeration of data has been computed. PREEMPT is used by one 
process to directly ready another orocess. IHS S primitive 
ieoeeer or activation of high priority system processes of a 
mreniy time critical nature. Paci Owuma  SyNehroil Zine 
primitive may, or may not result in relinauishing tne CPU. 
The CPU is always assigned toe the highest priority ready 
virtual processor on each board regardless of which 


Synchronization function envoked the scheduler (except § for 


PREEMPT, of course). 


SO}, 


Refore using ADVANCE or AWAIT, an eventcount must 
be created using CRFATHESEVC. Consumers and producers then 
communicate using the agreed upon eventcount. The cCurremge 
value of an eventcount can be determined through a call on 
READ. The functions of CREATESSEQG and TICKET are as 
discussed earlier, but with broader applications. 

The only entity presently distributed by MCORTEX 
over Ethernet is eventcounts. However, this fedltuwrewaiea. 
allows distributed processes to synchronize. The manner in 
which processes synchronize is no different thar that 
already discussed. The fundamental issue then becomes’ the 
means by which an Ont of interest can be made 
available to a producing or consuming process. 

Eventcounts nay be unused in any number Our 
combinations. Producing and consuming processes may ibe 
resident in the same cluster, different clusters, ocr mixed 
fi.e., a producer and one consumer in the same cluster, with 
another consumer of the same data type in another cluster). 
Processes are not aware, however, as yto° pa ve igs Qwr 
distribution - they continue to advance eventcounts and 
await valves just as they always did. ‘This transparency i15 
provided through the primitives DEFINESCLUSTER and 
DISERI BUTI ONSHAEe 

DEFINESCLUSTER is a procedure that assigns a 16-bit 
address (the last two bytes of the destination field of an 


¥thernet packet) to a cluster, and DISTRIBUTIONSMAP causes 
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the remote$addr field of an eventcount name (see Table i) 
to be assigned a value. It is necessary to statically manage 
the distribution of eventcounts, just as it is necessary to 
eeatically manage bloc«s of shared memory for user 
processes. It is a decision that must be made by personnel 
responsible for the development of AEGIS software that will 
mmeon FIC* under MCOPTEX. 

A user process does not need to know the address of 
Meemociuster in which it resides, nor is it required to know 
the cluster addresses of processes that it Synchronizes 
With. Therefore, DEFINESCLUSTER and DISTRIBUTIONSMAP are not 
Peamitives called by aouser process, but by a system 
process that calls these primitives in its initialization 
module. As mentioned before, eventcounts must be created 
peor to their use. The convention of MCORTEX is that user 
processes do not create or defire them (as a constant) in 
any way. The same system process that calls DEFINSSCLUSTFE 
and DPISTRIBUTIONSMAP, also creates all user and system 
Peemecounts and sequencers. Thus, symbolic names only are 
used by user processes at run-time and the System 
mio ialization module at creation time, providing a level of 
security. It will be seen later how this security is even 
further enhanced. The manner Muwitemermser and System 
Processes are created is covered in complete detail in 


Chapter V. 


DAG 


5.  Interprocess Communication 

MCORTEX, at this stage of development, does not 
provide any means by which data (produced) can be 
transmitted between clusters. Within the same cluster, 
however, shared data is stored for consumption in the 64K 
byte FAM shared memory board. Any buffering of data by user 
processes must be done explicitly. There is no dynamic 
allocation of this resource. 

With Ethernet serving as the intercluster bus, with 
eventual data transfer planred, due consideration must be 
21 Venu Ene distribution of user processes within \eiiiGee 
Processes with a high interprocess communication rate should 
be located as close together as possible. When thiS (Saag 
feasible, a fairly high efficiency penalty will heve to 
be paid. The Fthernet is clearly the highest level bus in 
RTC* and memory located at a remote cluster must be viewed 
as the highest level menory in the memory hierarcny of RIC*. 
As such, a nonlocal memory access should be avoided as much 
as possible, but it will rever be entirely avoidable. 
Clearly average memory access times will drop as the rate of 
local memory references increase. Im a distributed sj saa 
such as RTC*, the nonlocal hits on memory should be kept 
to aminumum. To reiterate, if high volume communicating 
processes can possibly reside in the same cluster, then they 


should be so located. 
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1. ‘luster Input/Output 
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MCOTTEX must provide a means to transmit copies of 
memes Of eventcounts to a remote cluster. This operation 
must be entirely transparent to user processes, since they 
mamvenno knowledge of their distritutivity. 

Figure 7 illustrates an abstraction of the flow of 
data and control signals necessary to achieve a transmission 
Over Ethernet. It embodies the principles of a flow chart, 
as well as an abstraction of processing nodules and control 
Signals. PeLemmmoCo ml ewGes, tomethe PToOllowing discussion. 
Maem user processes resident in either SBC 1 or 2 advance an 
eventcount through the ADVANCE primitive operaticn. fhe 
ADVANCE primitive makes a determination as to the locality 
of the eventcount and calls the internal routine SYSTEM$IO 
mmey if the eventcount is distributed, i.e., a renote copy 
is needed at another cluster. The SYSTEMSIO routine makes a 
determination as to the eventcount communication path 
meurrentiy the only option is Ethernet). Since the vath is 
Ethernet, the SYSTEMSIO routine writes an Ethernet Recuest 
Packet (FRP) to a circular buffer in shared memory, known 
as the Fthernet Reavest Elock ‘ERB). 

As a Shared resource among MCORTEX kernels, an ERP 
meotean tie FRE must be arhbitrated for. The TICKET mechanism 
is employed in SYSTEMSIO, and the circular buffer (ERB) 


contains ERP’s that must be processed. The SYSTHM$IO routine 
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FIGURE 7 Intercluster Input/Output Processing 
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increments a systen reserved eventcount (ERBSWRITE) to 
mort y the NI3S@1¢@ Device Driver and Packet Processor that an 
ERP has been written. This advancing of EXBSWEITE also 
allows any other kernel executing the SYSTEMSIO routine to 
continue if it was attempting a simultaneonvs write to the 
a8. The NIS01% Device Driver ani Packet Precessor 
(hereafter referred to as the Driver) is a consumer of ERPs 
and also processes Etherret packets received from other 
Sims ters. As a consumer of FRP’s it is a system vrocess of 
Zee enavire that 15 scheduled in the same manner as user 
processes. However, this routine is Menoated Ou ee 
density I/O overations, and as such is never blocked. In the 
highly unlikely situation where there are fone Sto 
consume or packets to receive and process, the Driver idles 
ima busy wait.” 

CULnoUt ya tieCmOonlyY ype Of ERP to be processed 15 
an eventcount type , whose format iS shown in Figure &. The 


NIG@1¢ Driver decodes the FRP and based on the information 


Byte 1 Byte 2 Byte GA Byte 4 
$a —— — ee ~——--+ 
| | | i 
| { t t 
iEventeount. | Eventcount ! Value 
Ty pe Name 
: | | : 
$————-— ——-— —-—- —- —- + — - - + 


Figure 8&8 Ethernet Request Packet Format 


it sets up a transmit-data-block in Shared memory. In fact, 
this block is the Ethernet packet, less the 64-bit preamble 


E1 


and 4=-byte Frame Check Seauence (FCS). The Driver’ then 
initiates a Transmit-DMA-Done’TDD) operation to transfer the 
block to the transmit queve of the NIS019%. Tre “Dmawe 
follows up the TDD interrupt with a Load and Send commard 
(29H) to the NI3@1@ directing it to transmit the packet over 
Ethernet. 

[nboutee packhe lS ad Gem prGie>s > ed by the “Dipti: 
through the ecelve-Block-Available (RBA) and hkeceive-PMA- 
Done (RDD) operation sequence desribed in Chapter 3. The 
Driver favors outbound packets, to avoid the possibility of 
a bottleneck due to a clogging up’ of the ERB. When its 
does set up for an REA interrupt, it will continue to the 
Cone us iO need processing the packet received. Followineiaa. 
DMA of the packet to the receive-data-block area in shared 
memory, the Driver decodes the data fields of the game 
(Figure 9) and calls the appropriate MCORTEX synchronization 
primitives. The Driver continues to operate in this manner, 
determinirg via an eventcount value (incremented by 
SYSTEMSIO) whether or not an ERP exists in the FRE that 
needs to be proressed and in the avsence of one receives er 
inbound packet for processing. 

The truly asynchronous nature of the Ethernet 
service should be apparent. Once SYSTEMSIO deposits anus 
it returns immediately to the user process. The user process 
is not held up in its execution due to a transparert request 
for system input/output. The Fthernet Request Packet is the 


Ge 


embodiment of the reauest, Atiimboit ferent forms 15 vassed 
memweer various clusters of RTC*. It contains all the 
information needed to perform the operation independently of 


the reauesting process. 


C. PACKET ROUTING ALGORITH™ 

iaetometdar, dite orlrastrations and discussions of fFTC* 
pertained to only two clusters, but this should not be 
moms Lrued Come siipmtatton. “Given that more than two 
clusters can exist in RTC*, some methodclogy must exist to 
route packets to as few as one and to as many as nesded {up 
momunhe Maximum clusters that exist). 

itemestaulished convention is that no cluster wili serd 
a packet to itself. If an eventcount 15 arvancel that 
requires a local update and one remote update (to one 
cluster) then only the local copy will be updated and ocnly 
Mie cluster that is to receive the eventcount value will 
receive a packet. This clearly reduces needless packet 
Mmeeessing at a cluster that has 10 interest in that 
MmemeeGOullt,  1.0€., there are no producers or consumers 
interested in its value. Therefore an algorithm had to ove 
developed that selectively eliminated packets from beings 
transmitted to an inappropriate cluster. 

The NI3Z@A1% has an packet addressing mode known as GFrOUP 
addressing, whereby multicast addresses can be loaded into a 


multicast address table onboard the NIS@14%. Provided this 
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table is loaded prior to NI391% use, any packet received 
that has bit 1 of tne destination address field Sev (oe 
(i.e., the first byte is odd) is interpreted ds a ma lvieeae 
packet and a lookup is done in the table. If a@ Match glue. 
destination address is found in the table, the packet is 
loaded in the NI3314°s receive aueue. If the Driver (Figure 
7) enabled an RBA interrupt, the NIS@1® will issue ar 
interrupt Signifying that a packet has been t!1e€cC@i Veqguiaan 
this cluster. The Driver will then process the pacKet 
accordingly (format shown in Figure 9). 

The Driver programs the NI3@1¢@ to accept GROUP addmeaeeiee 


in its multicast table, depending on the distribution of 


eventcounts in RTC*. The Driver (Appendix K) has a module 
DATA FIELD 
Byte l Byte 2 Ryte 3 Byte 4 
$+——-- -—-- -——---—— (me ee ee ee ee + 
: 
| Packet {| Type Value 
' Tvpe | Name | 
Se One i) 
a ee ee ee ee ene pe ae a oe ee ee es ee —_ = 


ele 
Ct pe 


- Packet is decoded based on 
byte 1. 


Figure 9 Eventcount Type Fthernet Packet 


that reais the local cluster address and group addresses 


from a file called adiress.dat . The local cluster addraese 


is used to set up the physical address of the NI3dJ1@ .see 
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Heer. 12) for details). Any packets on Ethernet that has 
[meme ot the £roup dddresses or the physical address in the 
destinatior field is received and processed. 

For pacxets to be transmitted over Ethernet. only the 
last two bytes of the destination field is provrammetie. 
This minimizes the amount of data that must be maintained 
ard manipulated for packet addressing. The ‘remotesaddr 
meerd in the EVENTCOQN? TABLE in GLOBAL memory contains the 
two bytes. 

Peemre iV cContdins an e€xample of a logical connection of 
Meemevers (they are all physically connected by S&thernet) 
dependent on the distributivity of the eventcounts. The 
mnes, with Diver Summadideeny to them, PS DIS Slee a 
connectivity relationship of classes of data whose producers 
and consumers synchronize on certain eventcount values. The 
vertical dotted lines represent a partioning of process 
types and group addresses, shown below the clusters. The 
mumoer in the cluster block is the physical address of earh 
cluster. Jt can be seen that 4 producer of Type 1 data, a 
consumer of Type 2 data, and aoconsumer of Type 3 date are 
all presert in cluster 8. A logical connectivity exists 
between all clusters as a result of the Type 1 data (Type 1 
consumers exist at clusters 1,2, and 4). An advance Dy 


producer Pl must cause a packet to be sent to clusters 1,2, 


and 4. 
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Pl - Producer of Type 1 Data 


Ci - Consumer of Type 1 Data 


Figure 10 Ethernet Packet Routing 
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Consider the Mor iCal sw connectivity of a certain 
meaemrcount, to be represented by a binary cne at each 
Seeister it connects. Therefore, for the Type i eventcount 
meena eciuster connectivity would result in i111 base-zZ or ¢F 
base-16. By performing an exclusive-or operation on (FH 
with the producer’s own physical address (98 hase-165, in 
this case) a resvlt of @AM7H would te formed. Since 
consumers at clusters 1,2. and 4 are interested in Type 1 
data, the NI5010 Driver must progrem @@0@7H into the 
fometaicast table. In reality the address <%5-00-096-00-00-X77 
(6 bytes in length, first byte being odd) would appear as ean 
eamemy in the table. 

Continuing with this example, consider the Type 4 
connectivity. THe webindry connectivity is ¢€iill and by 
perforning an exclusive-or with the value @4@@1H (address of 
cluster 1, where the producer is present) results in @@V6H. 
The NI3@10 at clusters 2 and 4 must have <@5-@€-G8-02-A0-LZE> 
feerne multicast table. fll other values shown in Figure 1¢ 
are derived in an analagous manner. 

The ‘remoteSadder field of an eventcount contains the 
binary connectivity discussed atove. The ADVANCE procedure 
of MCORTEX makes a test to see if the remoteSaddr field is 
equivalent to the local$cluster$addr (as defined by the 
ORPUNESCLUSTER primitive). If they are the same tnen 
SYSTEMSIO is not called and intracluster processing 


continues. If they are not equivalent, then an exclusive-or 


Oy 


+ 


operation is performed on the remotesaddr field 
frpemotesaddr XOR localSclusterSaddr) and the resultant 
byte value and appropriate eventcount information is 
written to an SRP. The NISO19 Driver dequeves the hee 
forms the appropriate packet format (Figure 9), initiates 
the DMA operation te the NiSzig, and issves the Load and 


send operation. 
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V. PROCESS DEVELOPMENT AND THE MCOKTEX LOADBE 


——— am om eee ee ee ee —— ee 


A, PROCESS DEVELOPMENT 
ee L/lsee User Processes 

nowe [Ref. 6] is responsible for the integration of 
MCORTEX into the CP/M-€6 environment. Although alls 
discussion of PL/I-86 user process development iS more than 
adequate, enoveh changes have been made to warrant another 
@eccussion. 

Poco ttem—mwt ition in PL/I-86 become MCOrTEX 
Peecesses Poieouehe execCution= of CREATE PROC monic tl ons. 
MCORTEX processes, though written, compiled, ard linked as 
PL/I-86 procedures, are distinct processes. mach reauires 
the state of the processor to be prepared by the MCO:.TFX 
Seeemtive prior to every entry into the process. This is 
accomplished transparently wnen making MCORTEX function 
mails. User-defined or built-in PL/I-&6 procedures in a 
MCORTEX process can he accessed from within the process 
nornally, however, a MCORTFX process must be entered through 
mee on rex function call. 

KORF is the nane assigned to the kernel) of MCOKTEX 
and is written in PL/M-86, and it is necessary for calls to 
the supervisor fC meet PL/M-86 parameter passing 
conventions. Rowe [Ref. 6] provided mechanisms to resolve 


differences between sinple user calls and supervisor calls. 


One such nechanism is the file GATEWAY.PLI, as referred am, 
by Rows, ard now known as the SYSDFF.PLI (for System 
Definitions) file. This file must te included in all 
programs (using the PL/I ZINCLUDY directive) making calls on 
MCORTEY functians. The chaneemineti ! cuavemena. introduce 
as aresult of this file’s multifuncticn role. In addition 
to declaring the MCORTEX functions as ENTRY values with 
attribute lists, the file also contains the symbolic names 
of eventcounts, seaunencers, énd pointers for shared data 
structures. This adds a level of security not presenmigee 
previous versions of MCORT#X. The misspelling of a Syijpaae 
rame will be caught by the compiler es the use of an 
undeclared variable: 

fn example of the use of pointers to access a data 
structure in shared memory is provided by the NIS@1% Device 
Driver and Packet Processor. This routine performs an UNSPEC 
function (described in [Ref. 17 yp. 721) call to absolute 
locate the Ethernet Request Block structure so that it can 
consume Ethernet. Reques Pave cte (oem fen etdie ame. KORE S 
SYSTEMSIO routine. The value appearing on the righthand side 
of the UNSPFC assignment statement is a symbolic rame 
defined in the SYSDEF.PLI file. Proper static manasemen tian 
Shared memory, With symbolic assignments, assures the 
Inveerity of, user data: 

Due to the limitation of pointer variables to 


sixteen bits in PL/I~86, some method had to be devised to 
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allow us®2r processes to access shared memorv ‘outside the 
64% pyte range), without resorting to assembly language cote 
to effect data moves. The AFPSOLUTE feature of LINK-@6 [Ref. 
18} provides such an alternative. The DS register can be 
assigned SDvalieweepvereusine DATA [ABS{ vj], where V 
represerts the valve) sufficiently high to allow an offset 
to be added to it at runtime, forming a physical address 
in the range 1@400H - 1FFFFH -first segment shared memory). 
iio accomplishes the desired effect. It is precisely this 
Mechnnique that is used in the NIS@16 Driver. The Driver was 
linked with a value of @82@H in the LINK option file, ard 
when addei to an offset of 8S7HVH allowed access toa based 
array structure called FRF (Ethernet Reauest Flock). Note 
that @879:8¢@° is the same as 17@0:4, but the first logical 
address permits local data to reside in local memory and 
Shared data in the first segment. User processes can use 
this same technique for interprocess communication. 

me OR TEX processes that are multiplexed 
‘multiprogrammed) on one real processor must be linked into 
a single CMD module. Multiprogrammed processes may share 
common Ply i-cey runtime routines as well as GP/ Mee 
mercies. However, this sharing of runtime routines and 
Meoberr1es presents a problem. Careful Examination of the 
machine code of the runtime procedures and utilities 
Paeciete Une ideh that they are not reentrant routines. 


Under normal circumstances, since processes only block 


ant 


thenselves at ‘convenient points in their execution (with 
the AWAIT prinitive), this lack of reentrancy 91s woud 
CrOclTere jal previous versions of MCORT Ee with the 
preemptive interrupt 4 to signify that a process has been 
readied by an offboard operation, the interrupt could easily 
“catch two multiplexed processes using the same non- 
reectunad runtime rouwline Or Geelity, The shenee in 
scheduling philosopvry, as discussed in the SOFTWAKE SERVICES 
section of Chapter 3, reduces this “window of 
vulnerability. If a process is scheduled, via a PREEMPT 
operation (which still uses interrupt 4), behind a process 
that was blocked and using the same runtime routine or 
utility, the originally scheduled process’s ex@€cution state 
could be catastrophically altered. This type of situation 
can be avoided through a careful distribution Gf ees 
processes. That is, dcen’t allow a process that may be 
reaiied via a PREEMPT operation to be multiplexed with a 
process that might possibly use the same utilities or PL/I 
runtine routines. If this cannot be avoided, the Siam 
remaining alternative is to write the Snared coO71@ ies 
reentrant procedures. It 1s anticipated that future Digital 
Pesearch, Inc. language compilers and CP/M-&6 operating 
system functions will address and resolve- this lack of 
reentrancy. For now, it remains a problem. 

MCORTEX currently erpects an initialization module 


to be located starting at 943590H. This module is the first 


he 


user process executed, and is used to create user proresses 
mimes 8 syster process written in PL/I-s6 can use its 
Intialization module to create eventcounts, Sequencers, 45 
meu aS creating itself. fivemeal! IWttializgations “are 
perforned, an AWAIT(’°PR°B4,°2¢01°34) should te executed. 
This puts all initialization processes on a common reserved 
Event count thread. An ADVANCE(°FS°RB4) by any process will 
return all processors to CP/M-86 control (providirg CP/M—-86 
is resident locally). 

POOR UX processes. are written as parameterless 
eeyi-e6 procedures. Execution of CREATE PROC functions in 
the initialization module establishes a virtual processor 
for each process, and sets all process States to ready. The 
Peet Call at the end of initializations forces a scheduling 
to take place. Themes t Vrie@rityvy= virtual processor will 
be granted access to the real processor. Further scheduling 
is dynamically dependent on the use of MCORTEX Synchronizire 
prinitives by user processes. 

Parameters required by the CEEATE PrOC function 
include values unxnown to the prozrammer until after all 
processes have veen compiled and linked. This requires that 
dumny values be provided for the first conpilation and 
Menking. Links are performed with the MAP command option 
selected, since this provides information required to define 
meer processes. & partial MAP print out for a demonstration 


process (full discussion in Appendix E) is shown in Table 2. 


TABLE 2 Saye Sis 


Map for file: = s02ZuUc Scr. 


Segnents 
Length Stare Stop Align Comb Name Class 
272D '9O@G9:3GA5-2751) PRYTE PUB CODER CODE 
A50F (GA74:0182-G60T) wORD PUR DATA DATA 
2721 (APCA:O6FE-G62E) WORD COM ?CONSP DATA 
0813 (@UC@G:2630-@642) WORD COM ?FPPSTK DATA 
C@2E (@2°¢:%9644-97671) WORD COM ?FPB DTA 
2222 (AAGA:9672-0573) WORD COM ?CNCCL DATA 
O2C9 (98A0:0674-267C) WORD COM ?FILAT DATA 
7°32 (22¢8:467FE-2685) WORD COM ?FMTS DATA 
GQ1B (28A08:A686-B6A3) WORD COM ?EBUFF DATA 
9003 (Z2O@A00%:86A2-G6A4) WORD COM ?0ONCOD DATA 
O6A25 (FG7P:A6AE-76CA) WORD COM SYSIN DATA 
3?@22 (9AOG:A95CC-O6F3) WORD COM SYSPRINT DATA 
Groups Segments 
CGROUP cone 
DGROUP DATA 2CONSP ?FPESTK ?¥PB 
2CNCOL ?FILAT 2EMTS 22 BUFF 


2ONCOD SYSIN 3) Si ging) Gale 
map for module: (Ce USERS INIT 


CG24 (G6¢G:"?F?5-2628) CODE 
9937 (@6232:010%-@136) DATS 


map for module: MSLORDER 


CABS (@AV95:6829-CCDD) CONF 
GASB (8A88:8138-A172) DATA 


map for module: MTRKRPRT 


902B (G@820:2ADF-0108) CODE 
Q612 (8800:0174-0185) DATA 


map for module: GATEM/T 


2193 (G00H:0109-020B) CODE 
9004 (9080:0186-0189) DATA 
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Wigs CKEATE PROC Precedure nas eight Se Wihlsl dt 
parameters. iC eL WO ares process identification and 
mpmecess priority. These are BIT(8) values assigned by the 
software developer, with duve consideration given to the 
module’s function. Diteorhemenarameters, thestS, DS. 5S, 
and ES register values can be determined by performing an 
emecutable load of the process CMD file under DDT86. Values 
displayed by DDOT86 include the CS, and DS register values. 
Peommentioned earlier, it is required that the DS, SS, and ES 
register values be equal for proper operation of some PL/I- 
86 runtime routines. | Except under carefully considered 
Seecumstances, this should be the case. The remaining two 
parameters are pointer values obtainable from the link MAP 
eke . 

The first section of the MAP file gives a summary 
Memeeeeecode and data segments included in the associated CMD 
meee. several data segments are listed in order of their 
Meeurrence in memory, from lowest cffset to highest offset. 
The range of the last entry gives the last address offset 
Meenoied by any data segment. Higher address offsets still 
[mei neetne memory space of this CMD file are assigned to 
Stack and free space structures by PL/I-&6, with the system 
Stack preceding free space. The SP value required by the 
CREATE PROC function can he obtained by adding the size of 
the stack required to the last offset occupied by data. ae 


another MCOFTEX process stack is required, its SP can be 


a2) 


Obtained by adding its size to the SP of Sine) preva 
Brocess. The systen stack can be divided as necessary ty 
continuing 1no Viaioeranner. The total number of  Bywes 
gecupied by MCORTEX process stacks should not exceed Sitnhe 
number of bytes provided by PL/I-86 for the system stack. 

The MAP file also contains maps of the individual 
modules linked into the CMD file. These maps provide data 
about locations of code and data segments witnhin@ the sae 
code and data segments summarized in the segments section. 
The beginning adiress of each module is given. This offset 
represents the 1P value sion sina te pdr ewan emu lem 

With all parameter values deternined, the 
initialization process must be recompiled, and all processes 
relinked. The resulting CMD file can be executed in the 
MCORTEX environment. 

ec. Gate Module 

GATEMOD.OBJ (or GATETRC.OBJ) must be linked with 
all user processes. It provides thre object code necessary 
to convert user calls to the format expected by the 
Supervisor, including addition of function codes iia 
paddirg of calls with extraneous parameters. GATEMOD uses 
no variable data segment of its own, and simply makes moves 
from user datdvereas Vothe Usereoa. = This ensures then 
so long as the unser data areas involved are unshared, 


GATEMOD is reentrant. 


ce 


GATEMOD and GATETRC both act as translators of user 
Oeels into formats reduired by the MCORTEX and MXTRACE 
Supervisors respectively. The only difference in the two 
Zate modules is the address of GATESKEEPSR in their 
associated KOFs. As assembly language routines called by 
PL/I-S6 MCORTEX processes, GATEMOD or GATETRC use the 
established parameter passing conventions (PL/I-SE to AS™MS6) 
to build the stack structure expected by the supervisor 
moduie (PL/N-86 format), supplying function codes” and 
padding when reauired. A call is then made to GATESKEEP#:. 
eeeoomcdtt 15 DOeKHAD or TICKET, space is reserved on the 
stack for the returned value. This value is popped into the 
BX register (PL/I-86 convention) before exitirg to the 
Satine ,»rocess. 

RORteetuimetions do not guarantee the integrity of 
the ES register. PL/I-86 in OPTIONS (MAIN) initializations, 
however, establishes the FS, SS, and DS registers to be of 
equal value, ie oC Cun aAne werOUutInesy e€=pect bigs 
relationship tc be maintained. The gate modules push the ES 
meester onto the stack on entry, and pop it before return 
to the calling routine, thus preserving its precal!l value. 
REntirely transparent to user processes, the ES register 


value is vreserved throughout MCORTSX calls. 
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BE.  MCORTUX LO 
i, ihe Ledger 

Prior to Rowe’s [Ref. 6] work the MCOR8TEX eyecutive 
was assigned to the file KORE and was accessible only 
through utilities in the INDRLERG MDS system This Sa 
contained all the multiprocesscr operating system functions, 
the initial GLOBAL memory, the supervisor, the interrupt 
vector, and various low level functions not accessible toa 
the user. To execute MCORTEZ it was necessary to dGwiiead 
KORE and user processes to the target system, disconnect the 
transfer cable, connect the target system terminals, ana 
pass COME 04 to KORE on each process see 
(Ref. 5: Appendix A, B] for a complete description of ithe 
process. 

The KORE.OPS and KORF.TRC files, now loadable under 
CP/M-86 through the MCORTEX and MXTRACE loaders, are derived 
from KORE. KORF.OPS provides no system diagnostics, whereas 
KORE.TRC provides CRT output to indicate the entry into 
MCOPTEX primitives. It is expected that during the software 
development ohases, KORE.TRC will be used to facilitate 
debugging. [In some circumstances this may not be) 1eaisuaoume 
due to the reduced speed of execution as a result of the I/0 
Over Teor 

Appendix A details the procedure used to produce 
KORE.OPS and KOFE.ING fromeconn. Further discussion wie 


use the terms KORE and MCORTEX to mean either KOHE.OPS or 
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Meese TRC and @CORTEX or MATRACE respectively. When this 
heme leCrenceseswill = be noted. 
2. Operation of the MCORTEX Loader 

MCORTEX.CMD is an executable file under the CP/M-86 
operating system. Invoking MCORTEX without KORE.OPS on the 
default drive results in an error message and an abrupt 
return to CP/M-86. MXTRACE reauires KOR8P.TRC. The loader 
announces that it is on line, and provides a prompt to query 
the interactive user whether or not GLOBAL memory should be 
loaded. Cie ce welest processor activated should load 
GLOBAL memory. subsequent loads of GLOBAL memory will 
destroy data needed by executing processors. Pino oR nit tal 

load of GLOBAL memory is made the results are undefined. 
KORE is immediately loaded with or without GLOBAL 
memory as directed. The load is accomplisheil using CP/M-&86 
functions, but does not use the CMD load utility. Instead, 
KORE is read in and positioned block at a time as required. 
KORE load is followed by a request for a process file name. 
The loader expects one file name to be entered, and results 
are unpredictable if a “filename.filetype does not precede 
a keyboard <RETURN>. User processes are loaded using the 
CP/M-86 CMD load utility, and user processes must be CMD 
motes. The entire file name must de entered including the 
three letter extension or filetype (.CMD). After loading 
Mtemeuser file, the loader passes control to MCORTEX. 


MCORTEX initializations are performed within KORE, including 


ao 


creation of the IDLE ard INIT processes (also MONITOF with 
MXTRACF), and the user initialization process isa 
entered. Operation after this point is determined bya 


user processes. 


VI. CONCLUSIONS 


The principal goals of this thesis were achieved. The 
Mearrications to the previous version of MCORTEX, to allow 
the distribution of processes over a high speed intercluster 
bus, were developed and appropriately tested. Eventcount 
values are currently the only entities that are transferred 
in packet form over Ethernet. However, the framework to 
meeeeyeextvend the distribvutivity of other entities is 
established. 

From the viewpoint Ht user DPEOCESSES.a» aCCeSs LO 
Ethernet is gained in an entirely transparent manner. This 
access is truly asynchronous in the sense that a return to 
@uemerequesting process occurs when an ‘Sthernet Request 
Packet is written to shared memory, not when actual output 
Seecnhe information occurs. Provided the NI301% Driver and 
Packet Processcr keeps up with the I/O rate, a bottleneck 
fore not result. The dedication of the Driver to its own 
real processor assures this. 

The Driver software needed to distribute MCORT#&X over 
Ethernet is device-depenient, however MGORTEX only 
interfaces with this routine through the convenient 
Mestrdction of an Fthermet Request Packet. Any changes in 


Bao river will not cause an undesirable ripple effect of 


SI 


changes in the operating system code. This integration of 
harware and software is easily modified and extensible. 

The creation of eventcounts and sequencers in tne 
initialization moduie of a carefully tested system process 
vrovide a level of security not present obpefore. This 
security is further enhanced by expanding the role sored 
SYSDEF.PLI file that is included in each MCORTZA processia 
convention the user processes cannot alter the constant 
definitions present in SYSDEF. The vser processes are not 
hostile anyway, but it will clearly not be to their 
advdntaze (0 alten Vint sei ie nee co eine of pointersmien 
shared structures further elevates the level of security. 

The NIS6@10 Device Driver ani Packet Processor iS aaeeea. 
MCORTEX system process that is highly modular, virtually 
self-documenting, and extensible in nature. By modifying 
ielgial = code and the supporting code in MCORTER, the 
distribution of other entities can be achieved: ae 
distribution of Sequencers iS a nontrivial matteraiyae 
careful consideration must be given to the speed at which a 
ticket value is returned to the requesting cluster. Ethemaes 
packets will unavoidably be aqueved up in NIS@1i? input 
buffers, and the speed in which they would be processed obDy 
the current Driver is fixed. A sequencer-type packet (not 
recognized by the current driver) would be processed 
immediately by the Driver, i.e., a value would be returned 


fron the GLOBAL data of the cluster responsible for the 


a2 


Shared resource, and an 4thernet packet would be sent out 
monediately. 

ime GiStribution of Wwser shared data could similarly be 
achieved, witn the buffering of data in the shared memory of 
eemepmecnuster. The synchronization on successive interations 
of data would be realized in the same manner as previously 
Geeseussed. 

The issue of packet security 1s a crucial one. The 
inherently reliable Ethernet is adeauate in most instances, 
bimoea One bit error in (10 ** &) to (10 ** 11) bits could be 
Bauastrophic enough when it OCCUTS, SO that an 
“acknowledging Ethernet may have to be developed. Enough 
meemate LeSting has not been conducted in the AEGIS 
Simulation Laboratory to draw any conclusions in this area. 

The lack of reentrancy in runtime code and CP/M-&E 
utilities is an issue that needs ft0 be more actively 
addressed. A ‘LARGE PL/I-86 compiler is under development 
by Digital Research, Inc. that should resolve the reentrancy 
problem ard the limited range (64K »dytes) of pointer 
variatles. This product should be available in January 1985. 
In addition to solving the aforementioned problems, the 
“LAPGE compiler will also sever the umbilical cord between 
the ISIS-II and CP/M-86 operating systems. MCORTEX 
development can then continue in PL/I-&6 instead of 
PL/M-~86. MCORTEX will then evolve rapidly and consistently 


with increasingly more complex user processes. 
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APPENDIX A 


]. “PRE-POWER -ON SCHECies 

6, SBC configured for CP/M-86 cold boot 1S In (UD 
odd slot and no other clock master SBC 1s installed. 

Bee eee controller is in MULTIBUS, and propemgm, 
conkected to Tinh tadrivee 

‘oe If MICKOQPOLIS hard disk is to be used, ensure that 
it 1S connected tovclockh master scree 

D. &nsure 52K Shared memory module is installed. 

ine Connect RS232 transfer cable between J2 on SBC, and 


2£4CfF paud CRT port of the MDS system. If this caole andeae 


‘null modem switch on it. set it to null modem. This 
transposes wires 2 and 3. The switch may be  } marked 
“computer to computer and ‘conputer’ to terminal . 


Set to computer to computer . 

FP. Connect any CRT to the 960@ baud TIY port of the wee 
System. Unsure (RT 1Sese 0 item loc uanae 

G. A CRT will be connected to the S$zC after the loading 
is completed, and should have an RS252 cable hooked to the 
serial port. The CRT connection should léad to @ fiat ee 
wire ribbon and J2 connector so it can @ventualliyese wooed 


tomtpnemobC  s semial port. 


84. 


mee POWER ON PROCEDURES 

A. (Tru iwempover—-on KeY to ON position at MULTIBUS 
ieee . 

B. Press RESFT near power-on key. 

jee it needed apply power to MICROPOLIS hard disk. 

D. Apply power to REMEX disk system. After system 
mreees, put START/STOP switch in START position. Following 
Seem thy time-out period, the KFEADY light on the front of 
the R®MEX disk system will illuminate, and the system is 
ready. 

ieeeonsert the boot disk into drive B. 

ieeeenpply power to the CRT. 

G. Power up the MDS disk drive. 

Hee rower up the MDS terminal. 


meeeturn power-on Key to ON at MDS CPU. 


mee) «=BOOT UP MDS 

A. Place diskette with executable modules and SFCEG1 in 
areive . 

B. Push upper part of boot switch in (It will remain in 
mrat position). 

treeeeeress reset Switch and then release it. 

Doeeunenr the interrupt light #2 lights on the front 
panel, press space bar on the console device. 

F. Reset the boot switch dy pushirg the lower part of 


the switch. 
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F. ISIS-II will arnounce itself ang SAO. “Va - 


Drone. 


4 


IV. LOAD KOPF 

A. At MDS cConsSotemmtype SRGecl CCR 

RB, IF *CONTROL* appears, SBC was not able to set its 
baud rate. Press RESET on MULTIBUS frame and try again. 

C. If ‘Rad EMDS connection aopears, you will not oe 
able to continue. Check connectons. Make sure diskette 
not write pretected. Push Rbo'? at frame. [ry aeaaue 

D. SRC8E61 will announce itself and prompt with ‘= 

BE. Type ‘I KORR<cr>'. Wait for “.. At this point the 
KOSE module has been loaded into the SBC memory, and into 


the common memory board. 


V. SAVING KOR VOCe/ sori 

A. Leaving the SPC861 process active on the MDS system, 
disconnect the S232 J2 connector at the SBC, and) eon ae 
the terminal prevared earlier. 

Be At the newly connected terminal type GFFD4:4<cr> . 
The ChY will not Gene this cytn.. Respond to the cues (tae 
follow as required until CP/M-86 is 1D. 

C. Now enter DDT86. At this point KORE, CP/M-86, ané 
DDTS86 all are resident in the SFC memory aude an (he ee 
Shared memory board. 

D. Using DDT86 comnands, reposition the parts of KORE 


reauired so that the cote can he saved into one file. bata 
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Meeessary to determine the initial locations of the code is 
meommd in XKORF.MP2. Micwy oO So.lnmstructions wsed for the 
eymerent KOR®.OPS and KORE.TRC files follows: 

Peon .OPS AA 

ier 0, 1090 .489:0 =** Move, starting at address B7?:@, 
10°29 bytes of code (main part of KORE) to new start address 
480:@. 

M439:0,88,590:0 “** Move, starting at address 439:0, 2c 
bytes of code (initialization modnie) to new start address 
58¢@:% (following main part as moved above). 

eoegs) 800 ,088:0 “"* Move, starting at address £53¢:0, 
BAC bytes of code (GLOB‘L memory) to new start address 58&&:9 
‘following initialization module). 

MWeOhE LOPS ,480:7,188? «eer Write to the default disk a 
file called KORE.OPS starting at address 4&Y 30 and 
Somvaining 188¢ bytes. 
eeeKORE.TRO > 

Pees. lOO .4e020 “~=* Move, starting at address AC@:¢, 
1C@@ bytes of code (nain part of KORF) to new Startins 
@aadress 486:0. 

M439:0,E€9,640:0 *** Move, starting at address $39:0, 82 
bytes of code (initialization module) to new starting 
address 640:0 (following main part of KORE) . 

ME530:0,800.648:0 *** Move, starting at address ED3°:¢, 
890 bytes of code (GLOBAL memory) to new starting address 


648:0 (following main KORE & initialiaztion module). 


one 


WKORE. TRC ,484:@,2482 ee Write to the default disk a 
IE called KORE. TRO. Startimteesat adaqres cue a) a. and 
containing 248A bytes. 

NOTE: The main KCRE module, the initializetion module, 
and GLOBAL memory are located to seoarate parts of the SEC 
by the MCORTEX loader. The system used requires that these 
modules be saved into the file in 128 byte blocks. Fuge 
any change in the number of 128 byte blocks occupied by each 


must be reflected in the MCORTFX loader code. 
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APPENDIX B 
DEBUGGING TECHNIQUES 

DDT86 [Ref. 13] is the primary debugging tool used in 
software product development in the AEGIS Simulation 
Latoratory. This debugger allews the user to test and debus 
programs interactively in a CP/M-86 environment. Far from 
being a high level debugging tool, DDT&86 nevertheless 
provides the user with the ability to interactively enter 
assembly language statements, Gisplay the “contents of 
memory, trace progran execution, and utilize other commands 
to provide software development assistance. 

The use of DPT86 in the development of the NIS¢10 Device 
Driver and Packet Processor was invaluable. Ethernet Reauest 
Packets could be interactively written to shared memory and 
meme response of the Driver was easily monitored from the 
same terminal. Breakvoints car be set in processes and the 
Seem Oon Of a Single board computer will continue until the 
breakpoint is reached. A process can block and when 
scheduled next, by a kernel of MCORTEX, the CPU will break 
at the setpoint. 

A particularly valuable feature, that unfortunately 1s 
unavailable in DDT86, is that of a watchpoint. A watchpoint 
is defined here as a location that a debugger would monitor 
and inform the user when an executing program nas made an 
attempt to execute an instruction at that location. This 
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feature can be emulated under DDT&86 by using the “A command 
(enter assembly language statements) to enter an INT &@ 
(interrupt 3) command. What the user does not get, however, 
is a history of the inStructions that got the CPU tomes 
execution point. In a single step trace this ” iS  Saroneee 
problem, but execution at near real-time is. In highly 
modular software, such as MCCRTEX, the single step trace 
through levels of procedure calls can be an extremely 
laborious task. 

In situations where the state of the CPU does not appear 
consistent with the Sees ine software, and the reliability 
of the hardware is questionable, there are few acceptable 
alternatives to using a digital logic analyzer. The 
Paratronics F352 is the logic analyzer usei extensively in 


the AEGIS Simulation Laboratory. 
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PPro ND Ty. C 


MCORTEX 


les 


OAD 


tes 


R 

tors file is assembled using the FASMS6 assembler 
Wher. 18}. After linking, when invoked as a transient 
memmeand from the CCP level of CP/M-86, this file will 
interactively allow the loading of a CMD file containing a 
MCORTEX process or multiplexed MCOPTEX processes. Cnly the 
first real processor enteriny the MCORTEX environment is to 
specify that GLOBAL data is to be loaded. Conditional 
assembly features pervade this code to allow either MCORTEX 
or MXTRACE (the diagnostic version) to be loaded. The 
conditional switch is called “MCORTEX , which is set eaual 
to one (or TRUE) when the MCORTEX version of the loader is 
momeope assembled. The use of the MCORTEX or MXTRACE LIwWkh&86 
input option files (APPENDIX F) determine which transient 


comnand is generated. 


ot 


‘ : He te ate ves te ate als ale x! rape aly als mis — ale :. ee Ae ate yls ale ale 
t ‘ >= 44" red exe e 3< ” 4< od lied toe 3S 3 4° aries ras fs = a ied baled ae sc wink ona, St tallied aed elitad bd 


SSS 3 BE RS DE 34S EES £36 HS IE | 
MCORTEY > EXT RACE File oes anes AEG pe... a Aug. BA af 
°K ene eee eee See ee ee ee SS ee ; 
* This program loads the MCORTEX operating ovate {Tom aa 
* disk into the currenteer/M environment.) )ieme youn sar 
* memory space is reserved using CP/M memory maragement * 

* functions. Since INITIALPROC must be overwritten by */ 
* the user INITIALPROC, the memory it occupies 15 not >! 
* preserved. The portions loaded into the interrupt os 

* area and into shared memory (ie. GLOBALMODULE) are in */ 
* areas not managed by CP/M and are thus pretected from */ 
* user overwrite when using PLI CMD files. Conditional * 

* assemblies allow assembly of either MCORTEX or MXTRACE*/ 
* depending on the value assigned to MCORTEX at the di 
* beginning of the code. Nire such conditional ay 
* assembly statements are included. 7 

9 BE ASHE AE AE AE NENG AK NE AL DAE EIT AE IE BE DE IE HE IE AC AE AE AC BE AE HE AE AE NE AE DE BE AE DIK AE OS AAS DAE IE AE IE OYE NE OE ANE AE IE HE IEE TE OE SE OS / 


3¢ 
~ 
~ 


DSEG 
ORG OA00H 
5 EAE MCORTEX 7 MYTRACE SELECTION OE BEDE DE HE IE HE IE IS HE A IE AIC IE TE HE NE BE IE TIC BE DE HS EAE / 


MCORTEX KOU @ :*** SET TO ZERO FOR 
» EX MKTRACE 


s**¥*X ADDRESS CONSTANTS ME AE AE MLD BK IE A AE Re AE IT AE AS HS HE DE HE AEB NE HEE EAE BE AE NOS 2ie OK a AE SK AE / 


FCB ROU @25CR Se PILE CONTROL 
FCB NAME EQU O@5DH sR BLOCK 

FCB EXTENT ROU O968H 

FCB CR FOU @O7CH 

INT ADD CS FOU @01148 Sak INTERRUPT CODF 
INTRPT OFFSET EQU 0334 Sek SEGMENT AND 

IF MCORTEX 

INTRPT CS EQU OC4BH Se TECTOR 

ELSE 

INTRPT CS FOU OC4FH S#hdta 1 #eHH <---- 

ENDIF 


S%KX PURE NUMBER CONST AN TS 4x REXER Be HES Re NE RE i 9K 3 NERC DE Be NED TE DIE DIC IGE BK NER DK DIE BE 


EIGHTH K FQU @080H 
LPIMG OR EX 

NUM KORE BLOCKS EQU @€2¢H 

ELSE 

NUM KOR® BLOCKS EQU 838H SHHHH 2 HHHH <---- 
ENDIF 

NUM_GLOPAL BLOCKS | FOU @010H 

ASCII @ RQU “O° 


a2 


mail 9 
ASCII_A 
ASCII 2 
SLASH 
COLON 
SPACE 
PERIOD 
CR 

LF 


me SOONTEOL TRANSFER CONSTANTS 


IF MCORTEX 
KORE_SP 
KORF SS_VAL 
KORE DS VAL 
ELSE 

KORE _SP 
KORE SS_VAL 
KORE DS VAL 
ENDIF 


moe CP/M FUNCTION CONSTSNTS 


CPM BDOS CALL EQU 224 
SYSTEM RESET EQU OAVCH 
CONSOLE OUTPUT EQU O902i 
READ KOU O2HAH 
PRINT STRING BOU @O79H 
Seen FILE KOU OOCFH 
READ SEQUENTIAL EQU @214H 
SET DMA OFFSET FOU GP1AH 
SET DMA BASE FOU @833H 
ALLOC_MEM_ABS EQU @¢@3S8H 
FREE _ALL_MEM FOU SO03AH 
PROG 2AM LOAD EQU 0933 
NOT FOUND EQU OOPFH 
5 AEE MESSAGES BSA AS DIE IE AE HE AE HERE AE AE A AE AE CDE FEE DIE AE AE HC AE BAC AS AE ANE AE AIC AE OK AE FE EAE EES A / 
IN STRING DB 15 

ate NS, 


KOU 
EOU 
KOU 
EOU 
EQU 
ROU 
KQU 
EOU 
EQU 


EQU 
£OU 
KQU 


EQU 
EQU 
KOU 


x x “ x » 


Q 
A 
Z 
i. 


.' . x x x 


rd 4 


7 dl 


OO09H 
QOOOAH 


967 5H 
OC 55H 


OC49H 


O07 5H 
OAC SEH 
Ce2ch 


sts ale ate ale ™ le ule abe we aie ale 
a il 4s if ert “ay 9 met tibet Caf 


»HHHH 
+H 
;H#HHA 


NO FILE MSG D8 “KORE NOT ON DEFAULT DRIVES“ 
NO IN FILE MSG DB “INPUT FILE NOT ON D®SSIGNATED DRIVES” 


NO MEMORY _MSG TR “UNABLE TO ALLOCATE MEMORY SPACE FOR’ 


DB 


“ MCORTEXS ” 


ale ale 


eed 


2 


He AS AE mye AS Fe aye PK 3Ls HE Ve 


AE AE NE BE OE OIE AE BIE DC AE BIE OE AE AE AEE SHE AE BE DE AK NCP FE TSE DIS EO 


Her FORM ERRMSG DP SCUGORR UGE EPER SRORMAT — TRY AGAINS“ 


Seen tetog O08 MCORTEX SYSTEM LOADER *** ON LINES“ 
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P NAME MSG DB CR,LF.LF, ENTER PROCESSOR FILEV VANE: (Cia 


GLOBAL 0 MSG 


PR aon 


DR C&,LP, LY, LOLA EORAL MEMORT re 


4 oil 
rd 


GM2 MSC DE ° Y TO LOAD, <i UR IW NOT S¢ieaiueee 

9 RAE MCORTEX 2VLOCATION VEFEITARLES HAE 28 AE ISR BE aS 28 AE Ee She aes Sic os OIE a 2i8 2e Sit 
pe aS CA TLON Rose ae CAUTION Sacose ChITTION bP en 4 CAUTION PR HE BIE TSH TE / 
r~* The following five lines of code should not be ge 
;*** separated as this program assumes they will be C3 
sk* found in the order shown. The code is used for “alien 
7K memory allocation and as a pointer to KOFE. sche of 
see CAUTION *** CAUTION * CSUTION *** CAUTION = %32. see 
KORE START DW @P3SCH stn CC Amen 
Lee CORTE 

KORE1 BASE DW OB7GH see CAUTION 
ELSE 

KORE1 BAS® DW @ACOH ;##H## 6 HH#HH <----- 
ENDIF 

KORE EOU DWORD PTR KORE START ;*** CAUTION 
LEVUCCR LE 

KOREL LENGTH DW @1AQK yee CAUTION 
Elbo 

KORE1 LENGTH DW @1COH SHHHH 7 #HHH <----- 
ENDIF 

KORE] M_ EXT DB 2 7; CAD Tee 
Pie MiGowt Ex 

KORE NAME DB “KOFE C2s. 

ELSE 

KORF_NAME DB ’KORE TRC’ 3##4 & AHR <-- 
ENDIF 

KORF2 BASF DW OESSOH 3*** GLOBAL MEMORY 
INTERRUPT VaCTC? DPW DTNTRPET OFFSET, INTIS 


—=— ee ee 


—— Gn 


Wo AE HS So 2s F)e RENE He Ne Kk Ne 9,29 / 


INT VFCTOR_ADD DW INT ADD CS 

INIT OFFSET Dw AAGGH 3 TNITIALIZATION 

INIT BASE DW @439H 3 *** ROUTINE PARAMPTERS 

IF MCORTEX 

INIT DS SEG DW @C65H 3*** FOR DYNAMIC ASSIGNMENT 
ELSE 

INIT DS_SEG DW 3C6BH SHHHH QO #AHH < 

ENDIF 

INIT _DS_OFFSET DW @@68H 3%** WHEN USER INITIALIZATION 
INIT_IP_OFFSET DW Q@A74H 3*** TS INDICATED 

79% CONTROL TRANS PER VAR DAD op gepee cece ecco 

KORE_SS DW KORE_SS VAL 
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KORE_DS Dv KORE DS VAL 

SHAK STALL CODP SEGMENT 2X Rete dese ag ak Ae ae ok ak ae a ae ae ale a ale a ak a ak 2K aks ae aa ai a ak ae / 
MCCRTEX_LOADP® CSEG 

CALL CLR SCREEN moowoGrhey CONTROL & LOG ON 

CALL MCORTEX LOAD ead MESSAGES 

CALL CLR_SCREEN eee 

CLD pote INI’T ALIZATION 

Pur AX aes 

ge ent LOAD GLOBAL INDICATOR BIS roa CES As a ays oh 246 Pininis elo aie eu cem hier crete eg eas ore ci oy / 
CALL IN GLOBAL 2 ASK IF GLOBAL TO BE LOADED 


MOV DX,OFFSET IN_STRING 3% 
MOV to. AaeAD 9 2 AeA CP 
INT CPM_BDOS CALL proek ORT 


7% GENERATE KORE FILE 
GEN KORE TCR: 

MOV BX,19 

MOV SI,OFFSFT KORE NAME 
MOV DI,FCB_NAME 
MOV_KORE: 


MOV AL, (SI+BX1 s4K% GET CHARACTER 

MOV [DI+BX],AL ser STORE CHARACTER 

DEC BX 

JGFE MOV_KORF 

se OPFN KORE.OPS FILE ON DEFAULT DISK is: aR RRC H AHe ares aR a / 
OPEN KORE: 

MOV CL, OPEN FILE pm CP/M PAP AMETEP 

MOV DX,FCR ;#K% CP/M PARAMETER 

INT CPM PNOS CALL Sk OPEN FILE 

CMP AL,NOT FOUND sera PILE FOUND? 

INE PROCESS KORE see PILE FOUND! CONTINUS 
JMP NO FILE se GO INDICATE ERROR 
PROCESS KOKE: 

MOV DI,@ 


MOV FCB_CR[DIJ,DI 


; OE aah a 


RESERV™ MEMORY X28 2estesteate Retest 


MOV CL,FREE ALL MEM 0 a2 
INT CPM EDOS CALL wick a 
MOV CL,ALLOC MEM ABS g sate 


MOY DX,OPFSET KORS1_ BASF 
INT CPM BDOS CALL ea ak xe 


~ ate ate ate ate ate So bonds abs ctl abe ate ote ote abe ole ato 
& N R @) if R it O G K re beledl biel Yael Dalle Indlicdl Tndliced lalid tedied ‘oalicet tad Tati Tatil Tdst Sadia! Detiaed Tootied Tao 


*eE MOVE 
SPOUT Omron ha NAME 
“* POINT TO FCB N&ME 


4 4 4 J 4 als aly 
AE HE AC HS EAS I 22 SF 


GET FUFFER LOCATION 
/M PARAMETE? 


INDICATER 


Heh iors / 


11 CHARACTERS 


6 ale bad ate 
ary mye 


Sew eee SO 22K 


BACHE IE AS 2s ME ye IE AS HE ALIE HEAT IE / 


CP/M PARAMETER 
FREE ALL MEMORY 


se CP/M PARAMETER 


CP/M PARAMETER 
ALLOCATE MEMORY 


CMP AL, NOT FOUND 
INE LOAD MCORTEX 
JMP NO MEMORY ALLOC 


: ME 2S 348 


LOAD MCORTEX: 
MOV DI,2 

MOV BP,NUM KORE RLOCKS 
MOVE KORE LOOP: 

MOV DX,FCB 

MOV CL,RFAD_ SEQUENTIAL 
INT CPM BDOS CALL 

MOV ES,KORE1 BASE 

MOV CX,EIGHTH K 

MOV SI,CX 

REP MOVSB 

DEC BP 

JNZ MOVE KORF_ LOOP 


ERK MEMORY AVAILABLE? 
7 MEMORY AVAILABLE! 
sR GO INDICATES BRROr 


CONTINUES 


be als ale 5°: ale ate 3 s'¢ s*c ate s'¢ als abe ate ale We 5: ate ale abs ale ate ale ale vty ale ats al. al ale alo ats 
Ge Yr Ayr ys age Aye Oh AS ys oh og 29m ogh GyS Oye AI> Ge Or Ae 4S YS OLD Oye AYR 74s O4% O,> FL> OY OLS O4R 


LOAD MCORTFX CODE #32 


. SET DEST. (Osi ea 
r* SET BLOCK COUNTER 


CP/M PARAMETER 


* CP/M PARAMETER 

r READ IN Vee See eS 

* SET DESTINATION SEGMENT 
Pe SET BYTE Coun 

SET SOURCH OPiS 

~ MOVE 128 Bites 


DFC BLOCKS TO MOVE 
IF NOT DONE, DO AGAIN 


SER LOAD INITIALIZATION MODULE 2X rere rene sente aioe aia ak ae aie ak He ae aac a 2k / 


MOV DI,INIT OFFSET 

MOV DX,FCB 

MOV CL,READ SFOQUENTIAL 
INT CPM _EDOS CALL 

MOV ES,INIT BASE 

MOV CX,EIGHTH K 

MOV SI,CX 

REP MOVSB 


7%" LOAD GLOBAL MEMORY ‘7% 


CMP IN STRING+1,7H 

JZ INSTALL _INTFRRUPT 
MOV DI,@ 

MOUF GLOBAL LOOP: 

MOV DX.FCR 

MOV CL,2RAD SEQUENTIAL 
INT CPM BDOS CALL 
TEST AL, AL 

JINZ INSTALL_INTERQUPT 
MOV ES,KORKF2 3/SF 

MOV CX,FIGHTH K 

MOV SI,CX 

REP MOVSB 

JMP MOVE GLOBAL LOOP 


see TNITIALIZE INTERRUPT VECTOR 


INSTALL INTERRUPT: 
MOV ES,INT VECTOR ADD 


te of 
g AE AE 
gE 
9 7 IS 
$ RAK 
‘. Xeocns 
¢ Re 
: Shien ne 


; Ne Fs 3%6 


$ XK 
$F KF 


g wees 


KM 
Sac oc 
© CK a 
$ ACA 
gE RE 
: 
€ 6K aS 
ge Ao AK 
9 2h RIK 
$e AK 


we we 


© tex ok 


9 


a te ale al ¢ to ale af 4, 
EXC Oe eS Ss 3S Siok sie eo 


ate at 
Ph 3 


SET DEST. OFFSET 

CP/M PAHAMETER 

CP/M PALAMETEF 

READ IN 128 BYTES 

SET DESTINATICN SHGMiaE 
SET BYTS GOUND 

SET SOURCE OFRS at 

MOVF 128 BYTES 


¢ ¢ ad ' VY, os ~ “2 cal ~! ale Pe 
BE BHR BE AE IE REDE AE HE HE NE TE RASS AE AE TICE HS AC BE TRAE A AS AST / 


SHOULD GLORAL BE LOADFD* 


Tk NOT, SKIP LOAD 
SET DEST. OFFSET 


CP/M PARAMETER 

CP/M PARAMETER 

RE&SD 128 BYTES 

NO MORE DATA? 

NO, SO GO ON 

SET DEST. SEGMENT 

SET BYTE COUNT 

SEL DAG. ON ro ot 

MOVE 128 BYTES 

IF NOT DONF, DO AGAIN 


te ate wte 3'¢ ate ale ste ole le * le al. ole 
~ oar oar > o> Ad) Ca bed od tea ~*~ a ted oy 


SET DESTINATION SEGMENT 


yor DI, Pideorl DEST. OFESET 
Perot, OFFSET INTERRUPT VECTOR 3*** SRC. OFFSET 

ew CX,2 joe WOrDS TO MOVE 
REP MOVS AX,AX jo ueemOv TWO WORTS 


SHR PRAD TN & BRILL BR NAME ARMM HER AE Re ole MERE Re aie DEA He MC BIC BC BIE HE ME BE IS ED IIE SIE DE 9 KC BE / 


READ A NAME? 


CALL PROCESSOR NAME eK MSG TO INPUT 4A FILE NAME 
MOV DX,OFFSET IN STRING ok <—— BUFFER LOCATION 
MOV CL,READ seta CPM PARAMETER 

ire CPM BDOS CALL per FHT 4 FILE NAME 


$a ACH SET FCF DRIVE DESIGNATION ste He Ae AS Bie ARE EAC HAS HE BE IE DIE IE 2 Bye SE TIE FETE OE AE IE OK EE / 


MOV DI,@ se SET DESTINATION INDEX TO ZsRO 

OieeiN STRING +23,COLON 3*** IS DRIVE DESIGNATED? 

Iieskr DRIVE poe eth No, PUTS DRIVE IN TeCe 
MeveFrCR[DI] ,DI see SET DEFAULT DRIVE 

mov ol,2 or leros bene oat NG nts Jol LETTER 


JMP FORM FCR 


SET DRIVE: 
MOV AL, IN STRING+2 ;*** GET DRIVE LETTED 


AND AL,&FH ;**%* CONVERT TO UPPER CASE 

SUB AL,40H SE CONVERT TO A BINARY NUMBER 

MOV FCB[DI] .AL se SET DRIVE 

AND AL,@F@H ioe LGM DI NGeDRIVE TOmA TeROUGE O 
ieot AL,AL 

JNZ INPUT EVROR B 

MOV SI,4 io eo VierOSt ie theoehi NGals 15. LETT ch 


gue EAS PNCTIALIZE FILE CONTROL BLOCK BE DE HE EDK 24S BE TE AS DIE TE SEAS OS BE YS AE TE AC OS / 


FORM FCB: 

MOV BX,@AH se PILL FCB NAME WITH SPACES 

MOV AL,SPACF 5 RRC 

FILL SPACES: 

MOV FCB NAME[BY], At 5 Mee a 

DEC BX 5 Nek 

JGE FILL SPACES g Heak a 

MOV FCB _CP[DI1,DI soe80k NEW FILE CURRENT RECORD IS ZERO 


MOV FCB _EXTENT([DI],DI 3*** NEW FILE CURRENT EXTENT IS ZERO 
Poe Noma PILE CONTROL BLOCK NAME, S728 kts eae ek re tere cea ceca aoe / 
NAME LOOP: 

MOV AL,IN STRINGISI] $*** GET A CHAHACTER 

tie AL, PERIOD meer Oo CAR Teh 9% 

JNE FCB CONT 1 peak TR NO, CONTINUE 
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NOV SOT. 6 

JMB ECR CONTR 

PCr TOON Tae: 

CALL VALID_INPUT 
TEST AX, AX 

JE INPUT FR&ROR_F 
MOV FCB _NAMF[DI],AL 
VOW Rx ll 

CUP SIN oo TR ING ieee 
JB OPEN PROCESSOR 
INC DI 

FCB CONT e: 

INC SI 

JMP NAME LOOP 


EXIT ROUTINE B: 
JMP EXIT ROUTINE 
INPUT ERROR B: 
JMP INPUT ERROR 


AE 3S 3K 


52 ate 
9 AE NS 


3% 2 <t 
% 


ae x +t ray 
Mow 4 3 


re 5k 


we 20 we wo we wo 6 we 
6 
: % oa wiv 
vw) 
eae @ =o = 


eect 
os SA) 
ae 36 4 


; HK 3\6 Hs 
03K KK 


4 RE SHC ate 


[Pe 


DJUST D®STINATION 


ANT CONTINUE 


CHECK YOR LETTER ra er 


MOVE 


CHARACTER INTO FCB 


1S THIS LAST CHARS GC ee 


U1) Oasys 
PE NO, 


LOAD THE FILE 
ADJUST FOR NEXT LETTER 


AND GO AGAIN 


BRIDGE TO EXIT ROUTINE 


s*** BRIDGE TO INPUT_ERROR 


SHH OPEN THR PROCESSOR PI LB Xa xx a 8 aE ale ae ai ae a i ke at a ae a ak aR a aK a ee / 


OPEN PROCESSOR: 


MOV = DX PGe sw CD/M PAPAMETER 
MOV CL {OPEN er ius seaK CP/M PARAMETFR 
IND CP MeenOs 645 2% OPEN THE FILE 
CMP AL, NOT FOUND 7. Ween eon D low 
JNE LOAD PROCESSOR ;eex TP ONG CO LOAD Tak Pie 
JMP NO INPUT FILE so TR MO olen nk  BRaMOn 
LOAD PROCESSOR: 
MOV DA. ECE sexe CP/M PARAMETER 
MOV CL,PROGRAM LOAD see CP/M PARAMETER 
INT CPM BDOS_ CALI PRES IOUG Us li J) 

sea DNATA SEGMENT IN AX 
AAA SET UP THE INITIAL ZATIONS SO LOCK MEE HEHE NE FE AG TEAS BK IS IS TEE EE SAT AE / 
SK CAUTION ** CAUTION *** CAUTION 3 CAUTION eer araicac aera / 
;*** This code is highly dependent upon Inout of PL/I] 7 
s*** CMD file with CS header first and data header a! 
;*** second. This is the normal situation and should ***/ 
s-** cause no difficulty. “Miso this cole 1s Sheen at Aa 
;*** dependent upon the location of the initialization “***/ 


ee a2 
eae ak 
# He Hea 


§ HE ER 


~~» 


EXIT ROUTINE: 


module stack and the location of the DS and IP 


values within that stack. 
location or organization shovld be reflected here.***/ 
CAUTION *** CAUTION *** CAUTION 7 CAUTION 2k sx HK 


She) 


eae / 


Changes in stack Heke / 


MOV ES,INIT DS SEG eon TO INIT STACK 
MOV PX,INIT DS OFFSET 7 POINT TO DS ON STACK 
MOV ES: [BX].4X_ se TNSTALL NEW INIT DS 
MOV DX,@ ;*e ST. NEW IP VALUE 
MOV BX,INIT_IP OFFSET i EON, TO 1P ON Siren 
mowesS: [BX] ,DX Pia er iStALt NEw UNI? IP 
MOV CL,SET DMA BASS pe CP/M PARAMETER 
MOV DX,AX ;*ex SET BASE PAGE 
INT CPM BDOS CALL ooesht DMA BASE 
MOV CL,SFT DMA OFFS?T ao) fee PARAMETER 


MOV DX,EIGHTH K ao Gh) OFFSET 

INT CPM _BDOS CALL ma SET DMA OFFSET 

$ RE AS TRANSFER CONTROL Ie MCORTSS Bees cisc kee CS HET AE FE OS AE AEE AS TSS OAS RS BE ok / 
MoresoP,KOrnF SP ya eam sLAGhk ere ti Tiak 
mov BP,SP fe eer al Ah OKs roy 

Mowe os,KORE $5 7X KORE STACK SEGMENT 
MOV AX,DS see GET DATA SEGMENT 
MOV ES,AX Poe POTN)T 5 TO DS 

move DS,KORE DS sexe KORE DATA SEGMENT 
fie t bo sKORE Poo JUMP LO eMCORT EX 


px VALID CHARACTER FOR FILE NAM CHEGK *astsiaexesrseseseae sestege seas ae / 


VALID INPUT: 
CMP AL,SLASH 
JE IS VALID 


CMP AL,ASCII @ sei 1S THE CHARACTER A NUMBER 
JB NOT VALID 5 He eR 

CMP AL,ASCII_9 5 esa 

JBE IS VALID ye Rea 

AND AL,5SFH see CONVERT CHAPACTER TO UPPE® CASE 
CMP AL,ASCII_A sick 1S THE CHARACTER A LETTER 
JB NOT VALID ga Hea 

CMP AL,ASCII 2 5 2K 

JEE IS VALID 5 Ao 

NOT VALID: 

MOV AX,@ sek INDICATE BAD CHARACTER 

IS VALID: 

RET SKRK CHARACTER OK 


SE ARORT MESS AGRS A CKARE SE NEE AE AcE Ae 2, BS OK Ae HE AC SAK OE OS OR OE OE DK BIS EAC OK AE BIC OE SC BIE AE ONS AE AE / 


NO_FIL®: 

Gul CLR SCREEN 

MOV DX,OFFSET NO FILE MSG sea PTR TO MSG 
JMP MSG OUTPUT pee PUT MSG 


NO MEMORY ALLOQC: 
CALL CLR SCREEN 
MOV DX,OFFSET ROVER OR VSG. 773 PLR TO MSG 
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MSG OUTPUT: 


MOV CL,PRINT STRING HESS 
INT CPM _BDOS CALL oak oe ie 


ChEL CL. SCmmnn 


MOV CL,SYSTEM RESET x ye sea 
MOY DL, € a ak 
INT CPM _EDOS CALL ws 


$e EOS SCREEN CON EROL See Reo e ce co mee ery oes e oc 


CLR_SCREEN: 


CP/M PRATER 
SFND CHAP TO CONSOLE 


CP/M PARAMETER 
RELEASE MEMORY 
EXIT TOsee i 


HERS ET BES AE DE SK AS BEAK BE SINE OE FETE I SK AS CK / 


MOV CL,CONSOLF OUTPUT ee TSSUE CARRIAGE RETURN 
MOV DL,CR . eee 

INT CPM_BrOS CALL ee 

MOV DI,@CH 7 TSSUE 12 LINE FEEDS 
LINE FEED: 

MOVe Dial edaien 

MOV CL,CONSOLS OUTPUT sae a 

INT CPM _BDOS CALL eat 

DEC Dl ots 

JNE LINE FEED as 

RET 

SEND _ MSG: 

MOV Ch erin Tote anG pK CP/M PARAMETER 

JOIN AE Oeia) pel sO OTS GI ;ere PRINT A STRING TO CONSOmy 
RET 


SEK NON ABORT MESS AG RS 28 aR SAC BE AE FE AE 2 EE ie OE AE AE OE OE AE OIE OE IEE CHEE IE EO / 


MCORTEX LOAD: 
MOV DX,OFFSET START MSG 
CALL SEND MSG 

RET 


PROCESSOR NAME: 

MOY DX,OFFSET P_N‘ME MSG 
CALL SEND_MSG 

RET 


IN GLOBAL: 
MOV DX,OFFSFT GLOB4L 0 MSG 
CALL SEND MSG 

RET 


INPUT ERROR: 

Chink Cia SwiaoN 

MOV DX,OFFSET FILE FORM FRR_MSG 
JMP EXIT FRR 

NO_INPUT FILE: 
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CALL CLR_SCREEN 
MOY DX,OFFSET NO IN FILF MSG 
FXIT ERR: 

CALL SEND MSG 

CALL CLR _SCHEEN 

JMP READ A_NAMF 


END 
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APOENPIX 0D 
GATE MOTULE SOURCE CCDE 

SYSDFF.PLI and GATEM/T.A86 files are Contdined Tie 
appendix. PL/I-86 entry variables in SYSDFF.PLI preavide a 
"“pateway to the MCORTFX ‘xkernel) supervisor via GATEMOD or 
GATFTRC. Also contained “in SYSDEF.PLI are Scones: (or 
symtolic) definitions that are used by the demonstration 
processes contained in Appendix ®. Note that system reserved 
constants, used by MCORTEX kernels and the NIS@1V Driver and 
Packet Processor are also contained in this file. 

GATEM/T.A86 is assenbled, and as a relocatatle object 
file, is linked with MCORTFX processes to set up the PL/I-86 
to PL/M-86 parameter passing interface. 

A conditional assembly switch ‘GATEMOD allows for 


assembly of a GATEMOD or GATETRC version. 


1A2 


AE HE BE HE FS HE Be HE IE BK AE ME AL IIE AE HE IE NE AE NE AE HE A BE EAE AE FE IE AIT AS OEE IE HE ANS NE IIE IC EO AES EAE ACE / 
AE IE BEA BE BENE HEE AE 2A AE OE BE BE AE HEE AE AE SOME EAE AE OE OS BIE Hee HE AE HE BEI AT AE NC IE ACE AE 2H AAC BE ETE AEE SEE OEE / 
oer Pik siovgy PL Davide. BYBWEN ~L SEP 34 *** 
ee eee Sa eS SS Se Se Se eS See SSS eee Ee 
Meeeinis section of code is given as a PLI file to be a, 
nto wt ¢ ° : + Sa ate 
“= ZINCLUDE d with MCORTEX user prograns. ENTPY aKa / 
ate al 


/** declarations are nade for all available MCORTRX a 3 


m st fe 
meee tunctions. 7, 
[PE BEBE FRE FE AE AEB FE BEE HEE HK OE BH BE SK AS HERE BK AE RE OK BK NT BK AE AL IK BSE OE NS AE IR SYS IEE SE AE BIS IS Bs TS OE AS IS OK AS OK OK OS YS OK 
ale aly te 
~% ca) 


je ale sf ale ala ate als ata alle ale wle ste alent, vto Sle ats ata ale ale ate sly 3'2 nto ate ats te als ats s'2 wle ste al, ve whe abs ste ate ate ste nba ste abs ate ote ate abe al abe ats ate ale ale ate ite 
PUr PS OG AG SY EY OG AN gh Sah Hy SE Myh Sym Myr SGh Sy Hg Gud Fy GW Sgr Sym Gyr Hy Soe Gyr Sy Tyr Gyr Ayr Or Mgd Oy Syd Oh HY Gyr OAR TEe GX ALY 49 Oy™ OA HBr Og o> O,S Fgh gh F,™ > AS AN 


DECLARE 


advance: FNIRYo(BiT (@)}, 
/* advance ‘fevent_count_id) */ 


pwart ENTRY (RIE (8), BIT (16)), 
/* await (event_count_id, awaited value) */ 


create evc ENTPY (BIT (8}). 
/* create eve (event_count_id) */ 


Greate proc sNanY (BIT (8), BIT (@), 
Polen heer 1604 BIT (16), 
ole immlan. bit (161), 
EeeGne alee phocm| UROCESSOT 1a, processor priority,*/ 


= Sracmenolttemoniehest, stack sez, ip */ 
es code seg, data_seg, extra_seg) x / 


ereatpe SCG ENTRY (RIT (8)), 
eee emcee Sequence id) */ 


preempt FNTRY (RIT (8)), 


Fede nin (8) ) RETURNS (BIT (16;), 

/* read (event _count_id) */ 

Po OWN Current event count ** / 
PeCet maint rit (8)) RETURNS GETTY .16)), 

VS NC Cetmceauence: id) 7 

/* TFTURNS uniaue_ ticket_value */ 
feofinemciiicteremiirky= (hit (16)), 

/* define cluster ‘local_cluster_address) */ 


ior nioitToOnmmapmeeNIRY (bit (@), bit (8), bit (16)), 


/* distribution map (distribution_tyve, id, 
cluster addr) af 
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addZbit1é ENTRY(BIT(16),BI?7(16)) KETURNS 317 tee 
/* add2zbitve (4a Petia another 1a #) aah 
/* PETURNS a i16bit 4 +eanotmer Veco oy 
Zrevlace 
[ss — ewes te oe a os ee ee ee ee a ee ee ee ee eee eee 
a ES Seal VCS ale) 9S aoa 
(1) USFR a 
TRACK IN by  @1 “ba. 
TRACK OUT by “A2°b4, 
MISSILE ORDER_IN by “O3'b4, 
MISSILF ORDER OUT by “74 "b4, 
7 > Nie oS ta ey) 
EFB PEAD by “fc'b4, 
ERB WRITE by “fdb4, 
| Bee a 
“eK =| 6 SKOUFNCER NAMES ove 
(1) USER y/ 
[2 ) SVS eee, 
EPR WRITER REQUEST Oyo “f£re4 
7 ce a ie ee 
ma | SHARED V4 pleene er One eee Game 
(1) USER a / 
/* (20S is ray ee, 
block ptr_value hy “8000 »4, 
xmit ptr value by “8878"b4, 
rev_ptr_valne by “8666°»b4, 
END RESERVE by “FFFF’b4; 
BPE REHEARSE BS AE AS HE ENE BE BE IE AE AS AS AE SCI EAE BE NE SHC NE AAS BETAS AE ANE HE AC AK OE ONS 08 HE AE BC IS HE AK AE AS 20S OE SAE AE IEEE MEAT OE / 


7~ GATEMOD 27 Chi pa File GATEM/T.a86 BREWER 1 SEP 84 */ 
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a 
 — _—_———_ am — =e = - —_—— 


Sernis module is given to the user in obj forn to link 

with his initial and vrocess modules. Any changes to 
. user services available from tke OS must be reflected 
* here. In this way the user need not be concerned with 
;* actual GATEFYERFPER services codes. Two lines of code 
are contained in conditional assembly statements ani 
Mmomeontrol the output to be GCATSMOD or GATETPC dependine 
om the value of GCATEMOD at the code start. 


e 
9 


% 


This module reconciles parameter passing amonen ne 
between MCORTEX ‘written in PL/M) and user programs 
Meri tten in PL/I). 


Ho MHF 


36 


* All calls are made to the GATEKEEPER in LEV®L2 of the 


i 


meetne ADDZEITI6 function does not nake calls to MCORTEX. 


’ 
:: 
e 
q 
e 
9 
9 
e 
9 
9 
. 
9 
e 
9 
’ 
® 
’ 
° 
9 
9 
® 
’ 
e 
: 
% 
e 
y 
q 
® 
5] 
® 
9 


;* It’s purpose is to allow the addition of two unsigned 
Selo bit numbers fron PL/I programs. 

Be RE REE CO NCE EEA RE CE OR COR RCO Ee a eee a ae aes ea 
DS EG 


GATEMOD EOQU © 3*** SET TO ZERO FOR GATETRC 
;*EX SET TO ONE FOR GATEMOD 


PUBLIC ADVANCE seek THES R DECLARATIONS MAKE THE 
PUBLIC AWAIT se GATEKEEPER FUNCTIONS VISIBLE 
PUBLIC CPEATE EVC ;*#* TO EXTERNAL PROCESSES 
PUBLIC CREATE PROC 

PUBLIC CPEATF SEO 

PUBLIC PREEMPT 

PUBLIC READ 

PUBLIC TICKFT 

PUBLIC DEFINF CLUSTER 

PUBLIC DISTRIBUTION MAP 

PUBLIC ADD?PBI™16 


AWAIT IND EQU @ wero Ieee THE TDENTIFICATION 
ADVANCE IND QU 1 pa eT COD oe = SCOGNIZED BY THE 
CREATE FVC IND KOU 2 2h GATEKFEPER IN LEVEL II OF 
CREATE SEO IND EQU 3 eG Or Lk 


TICKET IND FOU 4 

READ_IND QU 5 

CREATF PROC IND EQU 6 
PREEMPT IND ROU 7 

DEFINE CLUSTER _IND EQU 8 
DISTRIBUTION MAP IND FOU 9 


IF GATEMOD 
GATEKEEPER IP DW @@56H 


| 
1 
1 
l 
| 
1 
' 
| 
| 
| 
1 
1 
| 
| 
i 
| 
1 
| 
i 
| 
| 
| 
1 
l 
' 
‘ 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 


om om au em es amp oo oe ew oo oe =o cmp amp oem 6 amp am oem ce amp ee a= ae ae oe oe Se see eee pe ce oe Se ee ie ee eee ee - —— ome es we a ee 


OS. The address of the GATEKEFPER must be given below. 
ee a el a ee ee ee 


a 
st AA, 2s AS 
: 7 nw aN 


a 
SS ee ee SS NS, OO Oe ee 


» 
-- 
¢ 


cst 


% 


GATEKEEPEK CS DW OBADH 


ASD 
GATRKEEPER_IP DW @968H SHHHe 1 tee <————— = 
GATEKFFPE? CS Dw @34CE SHe#H 2 HHYH <-— =~ ee 
ENDIF 


GATEKEFPER FOU DWORDRP TR eGa Ewer ah ir 
CSEG 


Sx OAWATD RK AWATD ORR AWAT TD A AWATD SK Aw [IP aakacscak aaa / 


AWeh Ir: 

PUSH ES 

MOV SI,2[RX] ;SI <-- PNT TO COUNT AWAITED 
MOV FX, [BX] ;RX <-- PNT TO NAME OF EVENT 
MOV AL,AWAIT IND 

PUSH AX sN <-- AWAIT INDICATOR 

MOV AL, [RX] 

PUSH AX sBYT <-- NAME OF EVENT 

MOV AX,{(ST] sAX <-- COUNT AWAITED 

PUSH AX ;WOPRDS <--— COUNT AW*ITED 
PUSH AX sPTR SEG <-- UNUSED WORD 
PUSH AX ;PTR OFFSET <--UNUSED WORD 
CALLF GATEKFEPF: 

POP ES 

RET 


sk ADVANCE 3% ADVANCE 3 ADVANCE * 5% ADVANCE %akssxxek sans a / 


ADVANCE: 

PUSH ES 

MOV BX, [BX] sBX <-- PTR TO NAMFP OF EVENT 
MOV AL,ADVANC® IND 

PUSH AX ;N <-= ADVANCE INDICATER 
MOV AL, [RX] 

PUSH AX SBYT <-- NAME OF EVENT 
PUSH AX SWORDS <-— UNUSED wORD 
PUSH AX ;PTR SEG <-- UNUSFD WOKD 
PUSH AX ;PTR OFFSPT <--UNUSED WORD 
CALLF GAT#KEEPRR 

POP ES 

RET 


© sie sieaie CREATE RVC se ste oe CREATE EVC ees CREATE EVC HEE AE EAE AE NSIS IEE I IE AE 7 
CREATE EVC: 
PUSH es 
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MOV BX, [BX] ;RX <--— PT? TO NAME OF EVENT 
MOV AL,CRPATF EVC_IND 


PUSH AX fe aoecrmrtiany © INDICATGR 

MOY AL, [BX] 

PUSH AX Ol eet OF EVENT 

Eur AX »WORTS <-- UNUSED WORD 

PUSH AX sPTR SEG <-- UNUSED WORD 

PUSH AX sPTR_OFFSET <--UNUSED WORD 

CALLF GATEKEEPER 

POP ES 

RET 

g Ae aH CREATF SEQ 3K HK CREATF SEQ 3K AS 3 CREATE SQ MEZE AEE AE EASA KS AE HE / 


CREATF SEC: 


PUSH ES 
MOV BX,[BX] sBX <-- PTR TO NAME OF SEQ 
MOV AL,CRFATE SEQ _IND 

PUSH AX ;N <-= CREATS SEQ INDICATER 
MOV AL, {BX] 

PUSH AX sBYT <-- NAME OF SEO 

PUSH AX SWORDS <-- UNUSED WORD 
PUSH AX ;PTR SEG <-- UNUSED WORD 
PUSH AX ;PTR OFFSET <--UNUSED WORD 
CALLF GATEKFEPER 

POP FS 

RET 


Baer CKE) *** TICKET #** TICKPT *=* TICKET *** TICKET ***/ 


ieok ET: 

PUSH ES 

PuOH ES sTICKET NUMBER DUMMY STORAGE 
mov CX¥,SP eGo hem inet NUME EE 

MOV BX, [BX] sBX <—— PTR TO TICKET NAME 

MOV AL,TICKET IND 

PUSH AX sN <—-~- TICKET INDICATER 

MOV AL, [BX] 

PUSH AX eo ec eer nh NEM E 

PUSH AX | SWORDS <-—- UNUSED WORD 

PUSH SS sPTR SEG <-—- TICKET NUMBER SEG 
mon CX sPTR OFFSET <-- TICKET NUMBER POINTER 
CALLF GATEKFFPFR 

POP BX SRELTRIEVE TICKET NUMBER 

POP ES 

RET 
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Se READ RR PPAD HH READ HR READ 8X READ SK READ WKAR 
| 


READ: 

PUSH ES 

PUSH ES >EVENT COUNT DUMMY STORAGE 
MOV CX,5P sPOINTER TO EVENT COUNT 
MOV BX, [BX] 7k <-> SP ORV ANT NA 


MOV AL,READ IND 
PUSH AX 

MOV AL, [BX] 

PUSH &!X 

PUSH AX 

PUSH SS 

PUSH CX 

CALLF GATFKERPFR 
POP BX 

POP ES 


RET 


se CREATR PROC **% 


CREATE PFOC: 


PUSY ES 

MOV SI,14[BX] 

PUSH WORD PTR [STI1 
MOS haters | 

PUSH WORD PTR fSTl 
MOV SI, 1@0[PX] 
PUSH WORD PTR [ST] 
MOV SI, 8S[BX] 

PUSH WORD PTR [STI] 
MOV SI, 6[BX] 

PUSH WORD PTP [ST] 
MOV SI, 4[PX] 

PUSH WORD PT® [SI] 
MOY SI,2[RX} 

MOV AH,[STI] 

MOV SI, [BX] 

MO ernie Go 

PUSH AX 

MOV CX,SP 


MOV AL,CRESTE PFOC_IND 


PUS Aras 

PUSH AX 

PUSH AX 

Ue SS 

FU Sey 

CALLF GATFKEEPER 
ADS bey = 


CREATE PROC 


»N <—- READ INDICATER 


SBYT <-- EVANT NAME 

;BYT <-- UNUSED WORD 

;PTR SEG <-- EVENT COUNT SEGMENT 
;PTP OFFSET <-- EVENT COUNT POINTE? 


sRETRIEVE “VENT COUNT 


CREATH PROG MEDS HE BEBE AE AS AK AEA / 


‘SI <-- PPR TO PROCESS ES 
SSTASCK PROCESS ES 

;SI <-— TR TO PROCESS DS 
STACK PROCESS DS 

°SI <-- PTR TO PROCESS CS 
STACK PROCESS ¢S 

;SI “-- PT? TO PROCESS IP 
sSTACK PROCESS IP 

*S] <-— PT? TO PROCESS SS 
SSTACK PFOCESS SS 

SI <-- PTR TO PROCESS SP 
sSTACK PROCFSS SP 

sSI <-- PTR TO PROCESS PRIORIT? 
:GET PROCFSS PRIORITY 

ST ¢<=-— PTR TO PROCESS ID 

sGFT PROCESS ID 

STACK PROCFSS PRIORITY AND ID 
POINTE? TO DATA 


oN <—-—~ CREATE PROCESS IND 

+BYT <-~- UNUSED WCRD 

*WORDS <-- UNUSED WOPD 

*PROC PTY SEGMENT <== Si AC tone 
*PROC PIR GFNS ET Cee eee eke 


sREMOVE STACKED DATA 
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POP FS 


RET 

g EEN PREEMPT So tee DREEMPT ae cis PREUMPT canes POWRMPT Mecaiermaancrmns asic / 
PeeaMPT : 

Boon ES 

MOV BX, [BX] ;BX <-- PTR TO NAME OF PROCESS 

MOV AL,PRVEMPT IND 

Ewol AX a er Cee eNO OAT ik 

MOV AL,[3X] 

PUoH AX oh eevee OC ESS Vay i 

PUSH AX SWORDS <-- UNUSED WORD 

PUSH AX PTR SEG <-- UNUSED WORD 

PUSH AX fee ORS MTC US BC D 

GALLE GATEKYFPER 

mor ES 

EET 

ates DEFINF CLUSTER **% DFFINE CLUSTER **% a / 
DEFINE CLUST&2: 

muoH ES 

MOV BX, [BX] sBX <-— PT® TO LOCALESCLUSTERSADDR 

move AL, DEFINE CLUSTER_IND 

BUH AX HNC DESINE CLUSTER IND 

PUSH AX sBYT <=—— UNUSED WORD 

PUSH WORD FTR [FX] TOM se OG Nishio | ERS ADDR 

PUSH AX >PTP SEG <-— UNUSED WORD 

Poon AX Otho eGo wu ioe w Oi D 

CALLF GATEK FEPPR 

EOr KS 

RET 

| ne DISTRIBUTION MAP ee GS leer el @ Nearer 2 Oa ea, 


DISTRIBUTION MAP: 


PUSH ES 

fou SI, 4[Px] ;SI <-- PTR TO GROUP ADDRESS 
PUSH WORD PTR [SI] SSTACK THF GFOUP ADDRESS 

MOV SI, 2/RX] ;SI <-- PTR TO ID OF MAP TYPE 
MOV AH, [SI] 

MOY SI, [Bx! ;ST <-- PTR TO MAP TYPE 

mov AL. [SI] _ $A <-- MAP TYPE 

PUSH AX ;STACK ID AND MAP TYPE 

MOV CX, SP sPOINTEP TO DATA 


109 


MAP IND 

SN <-—- DISTRIB _MAP_IND 

;BYT <-- UNUSED WORD 

SWORD <-- UNUSED WORD 

MAP PTR SFG <-- SS 
sMAP PTR OFFSET <-- DATA PTP 


ADD2ZRIT1I6 *** ADD2BIT1IG6 *** ANDZBIT16 *** -DD2ZaT Mie 


MOV AL, DISTPIBUTION. 
PUSH, AA 

PUSH AX 

PUSH ons 

CUS oo 

PUSH CX 

CALLF GATE PEPER 
ADD SP, 4 

PO2 Ss 

ams ae 

; epee de 4 

APDe2ZBITT6: 

MOV SI,[BX] 

MOY BX,2[PX!) 

MOV PX,[BX] 

ADD Byeresis 

RET 

END 


pO) Mae LO BR hee tear 
Bh “See ee rr Opt 16 
Oe etelie,) aic 

sBX <=——- BITCise jel = Bil eee 


eee ENDS ee 


DEMONSTRATION PROGRAM SOURCE CODE 
The model of processes that demonstrates the 


distributivity of MCORTEX over Ethernet is illustrated in 
[eure iil. The interactions that are occilrring at eéach 
[ster are as follows. 

@euster 1 - The MSLAFACT (missile launcher React1o7) 
mmeoecess and TRACKER (tarzet tracking) process zet a ticket 
through the kernel (SYSTSMSIO) to write to the Etnernet 
Request len Ore ee This BOrresponds, tO wWser transparent 
Mmmeeraneous requests for Ethernet access. The NIlSv1¢@ Driver 
Mmumeeacnet Processor 15 ovrocessing Ethernet Hequest Packets 
and Ethernet packets. All processes are corpeting for access 
moeaLOPAL data via the kernel. 

Cluster 2 - the MSLORDEF (generates missile orders) ard 
TRKRPRT (treck reporting) processes are multiplexed on one 
real processor and are scheduled and blocked based on the 
mere raction with the Cluster 1 precesses. The VI33910 Driver 
ieeracket Processor performs the same function as that in 
Cluster 1. The code is identical with the exception of tne 
Mirtidlization module. Recall that this module in each 
meus per 1S responsible for the creation of eventcounts and 
sequencers, as well as Ca licwt Omer INesCLUSTS2 and 
DISTRIBUTIONSM4P, which are cluster and eventcount-dependent 
(distribution of) procedures. 
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MSLREACT TRACKER 


ee Pees 
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FIGURE 11 - Demonstratfon Model 


scm ee ee ee ee 


CIPROC 


SBC 4 


> eee et ee 


fore Clusters -—- there is ne actual computations being 
done by ary MCOFTEX process, so Ethernet Request Packets ard 
Ethernet Packets are being venerated at the fastest possibdle 
rate. Any possible timing problens would be exposea by this 
demonstration process. None were rote’, and tne processes 
performed as expected. 
The system console shown in Yigure 11 1s used to monitor 
using DNT26) changes in GLCBAL data and shared memcry 
meme tures. A process that avtomatically provises diagnostic 
and display supovdort is under development for RTC STAR. This 
fegeess Will execute under CP/M-86 on single board computer 
1 in each cluster. Source code for the demonstration model, 
Peeeeot tor Lirk@G input option files and the NIS#13 Driver, 
memerows. the input option files and NIS@10 Driver aré 


contained in Appendices F and F respectively. 
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* MSLTINIT is the initialization module feregine procs ® 
* that simulates the training cof a missile Jaurener aces 


U a! ‘ 4 4 + 4 UJ eal ' bes - . 
no BS DS DE SHC BIS SS FE BEE BIS SS BS AIS NS AS SHEE SI 3hS DIS BE IE AS SIS SAE Bhs TNE OS BIS TS AE NE RE ONS OK OS IE ONS OK SAIS ME OYE OS OE SIE OS OS EK AS OK 
*. 
* 


* @ result of orders received from the MSLOFDFF Dr OCesS Gua 
* of Cluster 2. TRIS motile te Vinked as Shor eee? a8 
* MSLEEACT INP or DAUICH 7 Bete 4 Ope Wa * 
PL/I-86 Source File Name : MSLTINIT.PLI *S 
AS st 
ste ate ate ae ate ate ais se ate atc aft sic ote ote nie ate ote oie ate ste ste ote ate ate ote ate she ote ste oie ate ste ote shee atc ote she Seok ot ste 5. cc) obe tea cic ote ale ote ic ate pias 


Ms laa t procedure options (main); 


Zinclude “sysdef.pli’$ 


/* begin */ 


call create proc (“A2°n4, “fce'b4, 
“@600°b4, “G4d8° 04, “025 fae 
. “04.39°D4, “94d8°b4, “P4de7h4); 
Call await (“fe 045 cma) 


end msltinit; 


8 t) 6 4 4 4 f] | t) e 
BER SS BIS SE HC AE OK YE ME DE SS DYES SS AS HK IE BS BS MS HE BSS NE TE AS AE I TE HS IE TE IS AE OK OS AS SK OIE SK AS SIS OIE INS IE TE BS DAS SIS BS IE AE NS YS NS OK 


* MSLTRAIN is the main module of a process that "responds * 
* to commands issued by MSLORDFR. It is a consumer of 
* missile orders. It signals its use of a command ay 7 


* advarcineg distrinited eventcount poll ORDER Ow 


* Tt is linked as shown in MSLREACT.INP or LAUNCH/T.INP  * 
* Od) SAP Pend xahe x 
‘ PL/I-86 Source File Name eon N «Pail * 


a MCORTEX Command Module Name : MSLREACT.CWD * 
ge MKTRACE Command Module Name : LAUNCEHE/T.CMD a 


ate als 
o\> a 
Je ate e's Ve ale le ate ate als ole ale ate sk le ata ale af fe ate ale als teat ale Se ale abe als ale ale le ~'s ale we ule ate ats ele ale ate als als als ale als ale ale wba ete ale at te ut wy ale et, 
+" 3° “4° PAS "~> a ayy #4" 3 3 DA ay > a a5 oy ol D4 3,8 Oy> aye Mr ays 48 er AP ys 2% 2y* or 7 ad bid bol € rf > 2,6 Sa Id bella! bid bela td as ayh oye ay Oye oe g™ oy 44% 74" 3,8 ae Og eg? ot 4" 


msltrain: Procedure |; 
zZreplace 


inf i nacty, Mnf pays test « 
one by “G0@1°b4; 


Linclude ) svsdet -wlhme, 


114 


DECLARE 


je fie edeeone) 4 15) 4 
Pie etoOMEe atic init Gor h4); 


onde ec Ge PAT MONS */ 
fe = rain */ 
To 1 = 22 omirntinitys 
k = add2biti6(k, one); 
call await (MISSILE ORDE2_ IN, k); 
/* consume!) */ 


call advance (MISSILE OPDER OUT); 


end; /* do i */ 


end msltrain;s 


BE NE HEE HEI AE HE EE ME IS IK BH EE EAS BK AS DE AS DE SE IK ME AC SIS OE SIC OE AE ASS AE AS IE BS AA BAS BS OE YE IE BIE IE AS BE AE BIS ISAS AK OS AS 
SeereKDINTYT is the initialization module for the process i 
« TPACKER (CMD filename). It is linked as shown in * 


3¢ 


* TRACKER.INP or TRKFER/T.INP of 4Sppendix F. 
2 2 
* PL/I-86 Source File Nane : TRKDINIT.PLI 

xf 


ae 


ME HR EAS HHS AS AK AC NSS AE BEC AL DE AC AC AE HE NE AE AE ALIS AC BE LAL AL ACS 2K I AS IK IS HE NE HE AE ES LS SE AE HE SS ONE BS AE THE AS EAS AE SS OS 3S 


trkdinit: procedure options (main)3 


include “sysdef.pli’; 


/* pegzin */ 
call create proc (°A1’b4, “fc'b4, 
“A9GR~ D4, “G6ff~b4, °“dO235 04, 
SCAt oh pAvemeiGnt 94. Cott’ n4); 
Galuimawart, | fe D4, G1 54); 


end trkdinit:s 


Laks 


ale ates! ta =! te ale aie al fa aie nla g's ale ale ale ols ula ate gle ale of U ate xt @ ag 9's gfe ale af ¢. Sy whe ale wile wie oe ale aly gle ete al w t te wf 
TAS HES BAS DiS HE SIS SIS BS NE Bis 3hs 3S HS 35 9s Hs ois oye oye 2ys oye om Sem NS Sis Ne oye ays Os 5/09 cea eisla ciece em ape ere spe ote Oyo epee ep cisece tenis ee ees oe i ee 


* TRKDETECT is the main module of a producing process 
s) 


tT heat 


Simulates the getecti ono etracksS «(aunueree rae! 


* and advances eventcount TRACK IN to signal that the 


next iteratior of track data is available. 


SO ewicie sis is TRKRPRT, located at Cluster <2. This mea 
* {5 linked as shown in TRACKFR.INP or TRKER/T.INP of 
<< Append 1 <a. 


‘ MCORTEX Command Module Name : TRACKER .CMP 
He MXTRACE Command Module Name : TRKER/T.CMD 


4 
HS HE LAK YS IE IS HE AE BEE AE DS DE SHS IE HES AE HE BH AC ALAS HE AC AC NS AC IE AE AS AE NC AE AS AE TE NS AT AS HE 4S IIL IE AS AS TIC 9 AAS TEE BS TIS HE AS TIS 2K I 


trkdetect: procedure ; 
replace 
FOREVEP yy ih Slee 
one by “0001 °b4, 


bur se rerenst h by 5@; 
ZWinclude “sysdef.pli; 
DECLARE 


i fixed bin (15), 
(k,buffer_ub,buffer lb) bit (16); 


7* end DSC raat PONS = 7 
Mey list 37! 
do i = @ to 32¢00; 
/* simulation of track einput dera: 7 
[> Input fron real-time sensor here By) 
call advance (TRACK_IN); 
buffer ub = read(TRACK_IN); 
put skip{2) edit (’Eventcount value = ’, 
buffer_ub)fa,v4(5))+3 
buffer lh = read (TRACK_OUT); 


put skip(2) edit (’Eventcount value = “, 
buffer lby(a,nat so 


EG 


The consumer 


sc 


is ef 


% 


st 4 


th 3 


aks 
aN 


iiwbinary buffer) = 
binary(buffer 1b))>=buffer_leneth) then 
do, 
k = add2ditiA(buffer_lb.one); 
Gall vawaent (TRACK OUT, ); 


Pnds 
end; /* do FOREVER */ 
end trkdetect; 


Sie SHE 256 Ne Bisa he Ne 24 fe 2]S NE ae ote af aie Ne ate he af aye je ake ake fe a ofc ake ate Ne HE ae aNe ae OR ake ake Ye ake he BN she afe aft fe DEC MIE IE DIE IE ENE Ie ae he ae A ae ae ak 


meeeuINiIT is the initialization module for the Cluster 2 x 


“processes that are multiplexed or SBC 2. This module is * 

ipenked 45 shown in C2USERS.INP or C2USER/T.INP in a 
* Appendix F. rf 
** moe 26 Somrce File Name =: C2UINIT.PLI a 


al 
a2 


- 4 s wed ataale tgate ae ote 2 bd 
He a ie HE ae as ah ais ake ae ake Be al Bi ake aE ae ale ate ale ake ke aga he ate ate ate ate ale ole ae ak aks ate aks ake ale ale ale aie ate ix ale fe as afc als als aie aie oy ake ak ais eae aye fe 


c2_users_init: procedure options (main); 


miunecimee sysdef.pli ; 


Voeberi nn) */ 


/* missile order */ 

Cavineredtewproc «0G n4 (fc D4, 

“AB22°d4, “CEff’d4, “CO29'b4, 

"04394, “OE ~b4, “ETL ’b4);3 
Poienecte proce «604 @=b405 “rc b-), 

“A94A°D4, “RETL°b4, “CRde~b4, 

i230 shone onmenten (otf b4 )3 
ea eawalti te b4.5 Gieen4y. 


Paes ce users init; 


1 ie 


Pier ew leae ey Arh ab rea n grsay eat ris Psd led See He ais cls Se ske Sic’ ve Sic 9k oe Seca SIS HE DIS ME NE HE SIS SIE HS SIS SiS Oe SS oie 3S 3 Ske Sic ee oe eee eens 
* MSLORDER is une main module ae a producing process am “ 
* Cluster 2 that “simulates issuine missile @rderseeue a 
* signals the nert iteration of missile orders by m 
* advancing eventcount MISSILE _ORDFR_IN. The consumer is * 
MSLREACT at cluster 1. This module is linked as sSnown 7; 


a4 OM 
ny ray 


in C2USPRS.INP or C2USER/T.INP in Appendix F. x 
Ps * 
a PL/I-86 Source File Name : MSLORDER.PLI a 
= Contained in: oe 
ae MCORTEX Command Module Name : CZUSEES .CMD a 
3 MXTRACKF Commani Module Name : C2US@R/T.CMD x 
sie ote Bic ate se of abe he ag atc ate ois abe ae ale fe ake aI aI ate ake ake ate ae ate ok ate att ake ate ale Me ate a me ate ake oIe ate akc off ake otc ais ate ate ake ote ate fe ate ats ate ls ste ale ats ate ate ok 


ms Lorder: ' procedure 3 
Zreplace 
Anti nis DY  eeroae 
one by °“@@71°»b4, 


nutter, lerst h by 9399; 
Hinelude “sysdefspli ; 
DECLARE 


i, fiero ae 5) 
(k, buffer ub, buffer 1b} bit (iege 


/* end DEC GRAAL ONS = 27 
/= Main eA 
do i=2 to infinity; 


/* simulation Ohemlss pee morve 


call advance (MISSILF ORFDER_IN); 
buffer ub = read 'MISSILS ORDER_IN);$ 
put skip(2) edit (’Eventcount value = ~ 
DuUfTerLub) (a, bt Suge 
puffer 1b = read (MISSILE ORDER OUT); 
put skip(2) edit ("’Eventcount value = 
buffer_1lb)(a.h4(5) 


)3 


Peery (our fer sub) — 
binary(brffer 1b))>=buffer_leneth) then 


dos 
k = add2bitisdA(buffer 1b,one); 
foieeceware( MicoiLe ORDER OUT, k); 


end; 


enal © s/o eu ale 4 


end mslorder:; 


Saree akc De =ye 3 3Es 9 i ae 31e2hc fe 3 He ae he He 2s Bee Be 2 He aK ke Oe Be ae he akc Be ak ie ke Be AK le OIC fs aig 2 ae aks a1 ak She Si ake aie ake ae ae oye aie Ac 
TRKRPRT is the main module of a process at Cluster 2 a 


3s 


= that simulates the consumrtion of track detection data. 


Sete si@nals its consumption ty advancing eventcount i 
* TEACK OUT. This module is linked as shown in * 
* C2USFYS.INP or CPUSER/T.INP of Appendix F. ‘ 
x PL/I-26 Source File Name : TRKRPRT.PLI a 


+ Goals at ta abe ato aie ate ate ate ale wb, Y) to at ) a 3 Uy * 5 wt Ceca es fin) SUS SCAR Ags COS te wie whe at 
BE 3S 3S IS BS FS 2S 346 3,5 2,5 As tf 38 a8 BE OK SEE AS IE OK 3S pA NE HE HS AE AS ETE xe 2S IC IC 2S x6 28 HK AS zs Ai as HS 2,5 38 PS 4.5 oe a5 as as 315 8 3S 2 2,5 38 35 2,5 
. 


meer pT t $ procedure ; 
%Sreplace 
iemeoden 1 Gy hye Or CON « 
one by “0801 °bd4; 


include “sysdef.pli’; 
DE GWh rs 


Tease crete leah sie db ce) jee 
Caepeto eS tatde amit 4 (OC? b4)5 


/* end DFCLARATIONS */ 
/* main */ 
mon = Go Infinity: 


k = add2biti6(k, one); 
ay lea wallt. ( TRAGK GIN. -<K) + 


/*® consume’) */ 
call advance (TRACK OUT); 


end eye do ft / 
end trkrprts 
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SPPENDIX F 
LINKe6 Input Option Files 

The INPUT option directs LIN“@6 to obtain further Compas 
line input fron an indicated file. This reduces the amcunt 
of interactive typing needed to dlink various modules 
together. In essence, the input file is a_ t-atch fale 
scanned by UINK86. For example, the modules shown tir 
C1PROC.INP are linked with the command : LINK86 C1PROC[I}, 
where I denotes that C1iPROC.INP contain the actual files to 
te linked. The name appearing on the lefthand side of the 
equal sign in the LINK86 option files is the name assifned 
to the CMD module. Therefore, LINK86 C1IPROC{I] produces the 
CMD module C1IPPOC.CMD. Details concerning this procedure may 


be found in [Ref. 18]. 
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ate 3'¢ ate ate ate o's ate ate ale ate ate ale ale a 
Ch hd is eh Pied Mts ped bad bd 


LF elled | 


wte ate a! s'¢ we ats ate ate ale ate a ale 
3 3s ey eye 


Ld be Ct he id bd | “~* *," ~~ i> Cd tl Cd be 


fo at of 
hoa 


Ad be 


ats ale wows ate ale sk 3 Pe one 


oy~ qe 


Be ee AAS AR OR IF OK 2,5 


MCORTEX = TFX 


ae ale Seale pap -to- ate wteats ale als ale 
Uo Cl pha fo Ca Dea pg pli iain pel 


as ~~ Ca lee bed 


ste ate al. ale ate ale ate ale ate ale al. ale aly 
*," wy* #4 Ct po Od he Ce bed cr Co ed #4? od td od bee bd be 7, 


’ 6, 
Me 36 9% 


m4 b 4 alewe « on st we ale ate ale als ale nes 


*\~ yr @ ~~ “~ ofp Ct bd ben ~~ 


ale ale ale ule h- ate ate ale ale ate ale af, al, 
Cd badd pallid Bcd fad Cd tel oy Ld bel > “4% yr Cd be Li hs Cd be 


cliproc = 


sSysinit1 [coiefan[439]],datafab[244] ,m[@},ad[&e2 


sysdev 
asmrout 
gatemod 


HE BE BE HR AS I ALAS IS AE AK AE 


we al yes'z mae ris oye ane 24 ioc enon 
4 


o> ~* 


SOR AS A A 


at. ste at. 
td Jie Saeed 


Sis HS Sys AS HENS DiS IY DUS DAC DS SIZ 3iS 


ate ate ale ale ate ato al, Ka als ste ate aly ale 
= var *~ 


Co hd ot bal La ba od be 74 od bd Cd Toe wm 7a™ *% 


tracker = 
trkdinit [cod 
trkdetec, 


Zatemod 


ate ale ale ote ate ale ale ale ate aly ale ale sto 
Cd bed 74> oo *.~ “y bl bee Ld be > Ld nlled Ned > cd be Ed bed 


Se CS a aS aa a SC a a Oa 


355 oye Oe 


ale ate siete s oe ate aly ate ates! ‘e 


Taumcameias 2.5 AT ys Sco F- AyS Bye See See 


mslreact = 


ale 3‘ mds ate w*e wlo a's ate ale ale we at ale 
1° *~ Caf ted > 7," Ld he *,* Cade fi Ld to dt ted *e hd te 


ole ied whe we abe ale ale ale ale ale Je ale ale ale Ve bid fe ale ale we 3's ats se ale ese ate i oo i pi ae * 
a 2 “4 


ae ~ 32 2 did Yad ~ mur aye MY 7m > 7y> My “> ~~ 7 ih % ~~ Cd ted od ed F ald tol Ld bel C 2,8 ~° 


ales viecate ne > Br PA 84 cabs nS 3 a2 x Fd de ate he we a's aly aly we oes west we sie ste se sie 8: ste oe 


Ue Oe Cpe Ce @y> Oye 2 Or €,> Oy OA Oy* pb Sapa 7,6 Or OE Mgr gr Oyr Hyr Hy 


VO tnput option file 


ote ate ale ale ale vie a's Sd ale ate te ate of ¢ phe ¢ 
. - . ~~ 
Har oar gr %e Me™ Ma? %8 au Hae™ Mr Mer 7 wy %% ~—" Our Fam Er Sy™ Heh ah Me™ Me™ Me™ Mer Or ’,°> > 38 we? #5 


ale ate ato ae ne whe ale ale ale ste ale ale ale We ole we ale ote ale te ste sie x = ea we ate ale wh ale 
74> 7 a™ %e* af o> a *,* \ od ted “~ Ww Cd td ~ ~ + *y Ld I 1 ad “~ Pe Pg yt MED Hy o gh 


/fxc [eode[ab[ B21] ,data[abd[ P44] ]} 


AS BE AE FI BE IE IK IE HENS KR OE FS BE A AE EE BE AE IE OIE SE OS SK 2S AE NS 2 
AEE 


ale ate ale ale als ale aly ale ate alh ale ste als ale 75 te als ste ale Je al. s'¢ ae oe 
* ¢ 
& 


S 8 yh 2 yD Oger Sgr Myr Or Og My - Mr = a7 % Phetied Rae 3s o> 3° my? o> %Q™ 2,6 


CEO Gm= rnp options tfile 


ste 5 <6 “hs oc 


HE BAS HEE AE AL IE AE ENE IK HS ETS : ASAT AS BE AK FE 2K HE SAE FE AS OE EE OES HS 


ele ate we als aly ale ale ate a! ese: Ne ac: at s'¢ ests ale sip ste ale ate slo sf (an 4 ate ate ste ate ste ate 


Si HE DE BRE HE BE HE RAKE CHE SCE TE SCH A IC BK NS OE BK ICO 2 Ea a 


sie De BK ag ag ae aK ae aR 9K a ake oft ak ae of ab ak a aK ak Hs ak ok 2k daha 


PRAOCKER Input option file 
bo Pi dino nat n iodg AP hie toll 4a ao aN oe wtb mir AAD ed 4 alin kp A RA A aon 


8 
we & 
ACA fo? ALD CA Baad SY pe CTA AL I Cd Ped oid od RoC ead hadiced deel Dak Ves peed Delia fella belted Jed “4 3°28 


e{an{439]],datalap{6rft] ,m[o],ad [82] ] 


ate ate ale ates aly ole aly s'k al. os me ale te ale s'< v-y eo do Jeo ale 5 ale Pid 4 ale ole Je vie ate ale ale ols 


oy, od Ind Cd bad #,* dl ted * “~ *,* 


> cod Deed “> ~*~ Cd bel “4s e\~ *, 63 Cd tela be Cd ee 


[Rd rp A bd bed Cd iad cr tl od ted 


Se ote He oh ae sik ake ai of ofc ake aie ak HE ae Ig SIS ae OAC OE TEE IC IK ME AE REE AE a RE ate oe 
MSLRYTACE input option file 


23% ale whe oly aly ate aty als ate bad ates §e sfc x ale aly ale ale ale ale a'¢ als a! 3 ale ate ale ate we 8 
. is AS ar YS 5 2 yr gd 24> Sg 24S Ops 0 gd oys oye 


Ld Wd held hod be AT bala) a> oar CT heed | Py gr Myre ar oar ge Pa ay" ¢ 


PER Soy ere peat ae My Aoi NG a Sede ae bgp Acs Oacar Ade ais Sin Uh sine dp dak ie male adn Ged a ae Sent Gi oan 


o ate alte ale ale Seo Je ots ale ate ale we ale ale ate ate 5 te ate ~¢ -} oie yo Cre os, 
> yr Myr % A 


ae He 3,5 > te 


a teas 


ets ate ale ale ale 


Fy Ty Sym Hg® Hgr Mgr E> %yg> %E™ %Q™ 


x oe whe ate ate a 


t, s‘e ale 4 als sig ate ale ale & ele ate ale ale sc we ale ate Je ale ale ale ied "¢ ne aC 3K whe ate ole wle ate whe 


as opr Fa> Sqr Sar - 44 HH 


mila ll 


AE BE BIE AK AE PK IK BK IIS HE 9 95 


ate sty ale ale 
-- 


ae oF 


vie s'¢ ale s'¢ 
“7% 


an ak 


2,8 ri xs 
AES AE AS 


ale vie ale ale 
~ o,* Ad te o," 


1] ,mapfalll] 


vale SNe 


a oe 


We ate ate 
om A OF 
Sate aie 
HK 38 


wte ale ate 
ee at eye 


ae 


2 ste ws ote 
Ld Yood 4" Cd tad 


, i} 
SE IS 3S 


Be oe NS 


oe! ate ate ate ale ale ole aly 
thls bled bel > ayy Hg™ Oye ge 


$e ale ate atv ate 
tin Oy Or Oy> Om 


Meetinit [cod=(ab(439]]1,datafabd[4d8] ,mi¢] ,ad [82]] ,mapfall]] 


fmoltrain, 
Fatenod 


12a 


tg al. s'¢ ale s'¢ s'< ale ale we athe ale 4 ate ale als ate ale ale als ale ale ale veo ale ale at ale s'¢ ale ae ale a's als ale we ate ale ye s'e5 
x ase ae CT tad +, = ~= Cd ie he Cf ad Cd hed oy* ay Cl Cd te “rr “~ Cd td od bel > ~~ Cd bo “* i PS oad a> < PR o,~ “~ oy y~ rr Cd te > Ce ello tao b oe 2 
ale abs wie x ais gle 5 ate Je whe ale als a's gt ale af. x ae 7. pode og a als als s¢ abe als ale ats ale ale ato ale 3 '¢ ate ate als ale ale ate als ale ate ale ats ate ale 
Ar oe m1 ae ae Fart x a beled Tle bee 33% © oy 5° ~\* Xs v4" Ph Og Sgr MyM Cgr Sar Sgr Sgr 44% 78 ag Oey Ey OE% Fah gr = 1S Qh Sgr gh Sgr Ogh Hg% Oh 


BEE HE c2PR0¢ In putswoueon 11 le 


ule whe ale ale ae ale ale ae ale als aly ate ale ale we ale ale ate ale yc ale se ahs ats ate sta ale ale ale aie 
a Am og ¥ 


ale ate sto ate als aly she ate bt gfe we de we whe de ale ala ale 
bd ta Ca te -,* ogh oer 4 “> Cd td al liad De Al bel 


hd > “4° ~~ Cd ie ~~ “> 44° Find > oy ere CT bel ed Dele ed *,* Fe ~ me ae Ld Del “~* td Paid Yl bes Ct Td *° ~~ "> “- #y™ Hm = od ted 


? f] t) t) te at ‘ 1 4 a . ‘ ry é 8 t) a 
PE DE SS TE SiS TS DS HE SK Sie Sik S's HE Se SES Sie oie eee ee se sco Oe ee ope opener jaa ope ae ee Opal yh Oye ge ee ye ye ie ere aie opcieasie el ereis eve 


ZDROC.= 
sysinit2 [code [abd[439]1 ,datalabd[age] ,m[@] ,ai [221] ,ma 
sysdev, 
asmrout 
ratemod 


HERS EAE BASIE AE AE NC AC DL HS AE AE AE AEE KC AC RE CAT EE AC AIS AE AE AS HE HE TE EK AE HE EAE EE YS AT LE AE KS AK AE 


ale a ate oe abe ale abe ake sls ante ale ale se at als ats ale whe 


te 6 te «! 4 1, 1 ° . 5 wie ats a! 4 b. 6, 4 
7\~ ~ 4y~ 7 aye oe Cd tlle Dad tee os oe “5 Oy % de Se ip oi 38 ok Fro 8 oe oo ee a bn nee: Sie Si Se He pa dip boas tne onthe 5 2k a8 SP ao 3,5 3,5 pas eae 


seme C2USERS input option file 


Ste ake > aie ate ee DF ye 5 aye cae eee a sak te hc re eee an ee eneeeeeter Oe eee ee 


ate ate absent. «*e ate als ate ale at, ste ate s'¢ at. at. ote se s'¢ =‘ oe ale ate ale s‘¢ ale af, ale * at. at aby '¢ ate at, ste abe ate a ste ule ale ats s: s': mle ate abs abe ale ate ate astoats 
ol ed led Neate Nad bad beled eal ba aed ic Sor iuacs fata be 0 28 9S 2,5 55 IS 28 Oye SE FE AS Oy FAR 2,7 Ok Oy 2S 24S OS OS BES AS AS 9,5 9,5 35 252,535 5,5 2,5 2,8 3,8 38 


ceusers = 

c2uinit [codefabd[439]!} ,datafab[6ffl,n[(9],ad[e2]],map 
mslorder, 

trkrprt 

Zatemod 


REDE Oe Oe eS ee ENE Sm SIC NS Ore Ok Pm pe ORG ate ae Or err eae a a ee to 
Oe meme ste ake siz one Sle HE she SE Se TE Shc Se Me he he SR ee Sie Sie se Sie See ee ee ee a ee De ee ea ae ce oon oe eee ae 

ate sic sk ~ 

dices MALAACE “4 DUO Eons iaeie 


nf, ale ale als 


Sh ok SDK 3 RS fe OE ac SNe ake abt ft a af ic ate oft oi aie ae ea ate abe aig oN ate ate a of akc he ale ake a ake ae oie aie a ake ake at te aie ale aig ale ake aks ae 


te ate ateoale s'25 te ale ale ale aly ats ale ese ats s'¢ ate ale ate als ale ate ale als abe ate gts ato af, oe ado als at, se abe aly of. nto ale ats ale ate 
oie she stesig ste sic ake ste she ale ste st 4 5h gic ie Sie Sie Se nie in oie sik aye Onn a,c ea earspe oe elem ei3 cena eae alee Coe” ore oon 2 cio kc oe nae eae 


MXTFACE = TFX/THC [code[ab/A6Cl]],datafabd[A8Cl ] } 


abe ale wtoate abe ale als aly ato ate ste ale ate ale ale ste ale aly ale ate ale ale ale ates ale ale ale als ale als ale ale als ats ale als ate a! Eat ds eg Ve wide aly ste als ale ate v'o ale ato abo ale 
OER Fy AN Se SES Age ogy gh Cys gh gh Fgh Gye Gh FgS CGR AYN Oye Og% OR AAR AR ON OG Oye OAS ONS ALS AUS AES O48 94S Oye Gr Ie 94% res SAE Bes 98 oR OS 9,5 gh 3,5 9,8 9,5 28 O25 3,8 


SIC OE ERE BCDC DIE HE NE MET EC BIC ake BIS SIC YS aE a aH ae Seats ote ae ate ake ake ake fe ae Ne ae ae Ne aR OE OE ONC ARE aK Die ICO ak 3K ak a ae oie 3 


EKG CIPROC/ Trio i ceeroqiiacemeeee 


ae le ate aly mata ate obs ale ate gla wate 


4 be ie le whe ate ate ale * ale ts ata! iz tte we ste ste sie ste 5! 
25h Sieh Sie SE Se Se aie se he She Shes os Sh sc ie I on og a ernse S02 se acai cape tee oe POMS S RO RE 300 SR eae BER Fee eee 
cafe ale be See, ewe |p ate af. le we we - ‘s af tos 4 * ° 
RIMS ILE S BEDS HE 3:5 9S Sie Sh AS SE — SHE Se NS Sek eye ye OR eae See ee Sak Spe a ore ae oat eee IR ote Oe Bem ieee ue Rie i cee tee ake oie ie eueenie eae 


CLDEOG7L = 
sysiniti {[codelab[439]],datafab[87?7] ,m[7l ,ad [82] ].ma 
Svsdev, 


asmrout 
ratetre 
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WS RSS HE HE HE MEK 


ate ahs ate ale ate ale ate ate 
cd Ded od ted -* “> oy “~~ cd tl a= 


t ne 
i < 


abe ate ate ale ale als ahs ale 
Fee Oh Ee Mgr Aye OU® Fr 4S 


Pad ale ats ale ale 
iat bad Apa hed fs Cp as 


pfall]j} 


Sie BEE a BEAK BIS 


Yo nts ate ato ale abe ale ate 
3,~ “~ = > Ad tee my 4" 44° 


BS ALE 


'e stg wate aly ale 32 we a's 
ALAS AS AE AS 38 Ae 3S 


we ate ate als ate als ate als 
Pym Ayr AER Or Fg> gr 24% Oe 


[ali 


eale ale < ate we ate als 
. od De Cad tad -~\" od too) 4 ted bd bes 


ate als whe ate ale ale ats ¥4 
Cd be La ed ”~* cd be “> “~~ 74> 


ae Re 


ale ale ae ste ate vio abs als 


od tad 7 ~ ht Del ~~ oy “a> ed bee 


mt. ale ate abe aly abe ale s'¢ 
FE a gh OE Oy% F4R Oy Ogd Oy 


als abs ale ale abs abs ale ale 
Cd tod Sat bed 7 La ted Cd bel dl be Ad eo 77> 


?, ?, ty 4 
336 as Se Se osc oe oe 
abl alent, 
“~ cd be > 


30 See Sere a eee 


SiS a A BE 


plall}] 


aries ale she ate ale als ale ale ale Se ale velo ate alo ate ale ale ale ate a! fab ed els xt est ala ate ate ale ata ale ate ata ste ale s'e se 3' axle 3 whe whe ale ate ale abe ate os! als ale ala nts sis ala ste ale vile ate ale aie 
x . *,\* 7,2 oy \ > Cd be -,° o,° > CT bel at tes oy> 9,2 CF he 4° oe? 7% Cd Cd bed he Ce bed 38 > Ld td a”. ** > a Cd be Cd be > he \* *, he 7 Ct ted te Cd bed Cd bed *," “~~ cd bl o\> ** a> CT hed 4" cd be a> ry Cd hee > > od bes ~~ *,* Cd boo 


xe aS ale eae s'e we vest 3‘ ae ate als ate vey phe - aie to oe sc ier rate =e aesls ote sie ree aed ale abs ale ale sta aly ale ale slo ala nla slo ale ate xis slo sia x! ala ale als ate slo ale ale sto ale ale 


aon was) Picea input peas file si 


ate ale aleats a'r s'¢ we aie a: exe 5 ed ae = ve ele te ats yo te ate ae 3° e3< ate ale ale ale ate a's ale ate ate wants wie at+ ale ale So aly ate vie s'¢ mac we bid ale 
Cd te ood ad Cd Cd tnd Cr hed as & ~ 3 ae Cd te a5 ~ a: a0 fa a 4 a Cat Tad oe 7 Cd ted *,° Daf be Pa had as 3 > ~ Cd tad od be ”~\* cd be * om od bel cd ed Cd be or = “+> *\~ oo” ba be ry Ot ted od ted St iad tay ed “~~ 1” 4° 
ale als ols sc s'¢ aly ale ale rye bard af ek = cals af.- wie wf oh- ot aly al oly s'¢ ae 3‘: Pace a! - 4 et Ke x s'< abe ols ade ahs sla ly me siz ele ale ale ate ale 3 a! aba ates ate whe te ale ale 
“\* > \* hed | *"y * oy # + PS “* ee bad | 7° os s ed bell | “a o,~ Cd Ted 7 ~~ #y™ 36 oes he Cd he 1” a Myr gr g™ gr Cd ted pad Tpit bled Dellied acd ndliod tha oe Pps Og™ Hye ied bad Ld ied ayy yy 


trker/t = 

Memainit {codefab{439}],data[ab[6ff] ,m[O] ,ad [a2]],maplalll 
trkdetec, 

gatetrc 


ate ale ote dle aleale ale ats ale ale ate ale ale aie ale aly ale ale als ate res ra 4 ste ale abe ate wc le ate ate a! ate a! exe e ale ste whe ates ale ale whe ale ato ale at ale als ale ate ate sie ae oH ate aly ale vie 
FB Gh gh ABS 2gd Oye AS Age OU agd Ayr 2 ge 24h 04> 2gh O, 04h Og™ Aye 04h Ee as og ys ogy ay a aye oye Fy Pe > ae Fe 44 Pgh Agr AY ALS Hq™ yh Ayr Oye yh OG® Oye ge 24h Oye 24S 24 Pa) Oar yh 2g? 2g 


Se Ke EDS DSR a NE RE Re AE BK RE 5 REE RE aK ORC aK AE AE a a aK SI ASA SE AE Be CA EEE a A SICA BE OK EE RH BISA HE te ie mE 
a LAUNCH/T input option file at 


ats ate sia ale ate ale ste = ae ste se ries coe aeades ies'< Sd ate ste ats ale aly fe ste ats ab. s'e ale ae ¢ be 3‘¢ ate ate ate ale ale x23 ale we ale vty s'¢ waate 5 he ata sale ote aly 2 Se wis ale ale ale ate slo ale ale 
Pe er ee ee eee aay 2y™ * ph Fgh Gh Aye ag ay gh Age ah Oye age oye ogy 2 gs agh Aye Fy 48 gh gs Hye ays Oye ye oye age 24% Aye AAS age Tye ah Oye 64s ye Bye Le AY age Ags ge Oye F)> 24> 


HEHE DEAE DK DK AE Te AE NE DHE IIS D1 BEE DK NE TE A DYE DE IK Ree aie Ae ohe He Me 24s ALTE HE HE Ne DIC AE AE fe AE aC he Se aye NEE ake BILE RE DIET IIL OE OIE OE BIC OIE Bie 3S 


meunch/t = 

msitinit [code[ab[439]1,DATA[AB[4d8] ,M[@]} ,ADL@2!] ,mapfali]] 
msltrain, 

Patetrec ; 


BIS HR BS IS BT YS HK NE BK DE BE BE IIS TS IE DIK DS HE Soe IE AE AE ME AK EC 1S DE AE BE BYE DS HE DIS SNE BYE IS BK NS OE BK IS IK BIS TIS SIE TIS OIE SIS BIS OR BIR OE BIS OE OS OR BIS IS BIE OHS 


ale ale wleabe ate ate ale als als ale aly ale ste ate ale hi ale s'2 aba as ate ate a 4 ele s‘¢ als ¢ ale ste ate gle ale whe ale 32 ewe =f ote da ate sta sles ste ate slo cle ste ate ate nla ate ale ale s'¢ ate ale "2 ate 
. e Hee Ope 74% 2,% ~~ 7,9 ¢,' e 2 @y* ao, e, @ ,? = @ = rh rd td » . ne bed = = * =e Age 24% O,% A,r ann eed teed > * a,» & 2 @ a,? = 27, 
ei eses ai E™ oe %E™ 25~ M4 a” oi PPP pH CP PDS Cot YE Salad PC | ( CERI PS Cd fd of PO Cf | Teed PO Cy ft CHICAS Co eal felt fete Pat al RCT ld dt UP ett ot Che Ch) Cheat 


Bae n° Cer rOCy Laan pute ODL Ont 11e il 
eae ce eine ps oe ye che 2 2c oye Se ik Bek Hate Se oak see Sie ee eae che Se ote he oe enna le Ne shes he He Me ake 912 He aK 9 ye Be fe a 


ate Jo st. md al, s'¢ mala ate ates ale ale ats ate ale bh ale ste ole ate ate ale ats alo ale ‘¢ sz ate i oo. hed 3 ante ae ie sz ale ala als ate ate ale ale ate ats ate ale te ol = a! 23 ale ale ale ate > 2 ate sls ate 
oe » Od ted ee ~ Cd adie ii cd be ay 7 o,* ”“~° od ted td hed Ld be Yad Ld ted 74> ~ Cd Ted Cd be ad ted bd toa oye oye r r Coad {Yaad a5 3 * oy~ cd id yy Lt bed 4° 7y> Cod ted ,™ “| og o,~ At bed ay + * Cd De Cd ted a tad “> = Cad td *, od De 


beproc/t = 

sysinit2 [codefabd[439]],daatafab{[erg] ,m[O} ,ad[e2)},mapfall]] 
sysdev, 

wonr out , 

gEatetre 


* 0) ) ¢ * 4 Pa 1 fe 
race ete eee Gen cas nis cere eri ia oe on ke See WC Ne te eK Oe ee Oe Oe ok mee St ce Ok Be oe me me Be Sts Me Sie oie ate ste ale Se sie Ste SNe oie Sie Sie Si ate 
‘ ? ' ry ‘ ty ty 4 4 4 4 iy ’ t ] a ry s ‘ a! ¢ te a=! "» ! 
Po ON Oe eet Bo sce reuse es ene ede se vi ntae neoeae ne neve ne 


anand CZs En / TP ant temo vt1o7 file ae ee 


HEAT HSL TE YS BSE He AS AT AL AT HCE MCA AE AL AE AE SIs DS BL AE RE AL SAS HS YC ALIS AC YE BS SS 34s BE IE AE IS AE TIC BAS 34 Ae IC 31S 


Ae 
Ae 
fay 
rv 
BA 
ey 
Jf 
#% 
a4 
2 
3¢ 
x 
ees 
ray 
% 
RY? 
fay 
ve 
3¢ 
rt) 


S 4 Otel} $ ? . 4 t t 4 4 4, 1 ' 4 t Tae om ‘d ¢ % ’ * U ' 1 t ’ ' tone’ Ve al, 
Ae yt As ape Ro DS SE SAS BYE AC IE YS AS OE BIS NE IS AE SISK AS AE IS AS TE STIS DIS BE BYE OI IE NE DK 3S BS DS OE BYE THK oS IS OS BE Nt FI OK 


mevser/t = 

c2uinit [code[ab[439]} ,datafab[6ff] ,m(@] ,ad{S82l] ,map[all]] 
mslorder, 

exer prt, 

gatetrcec 
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APPENDIX G 
LEVEL I] MCORTEX SOURCE CCDE 

The LEVEL II source code, written in) -PL/M=2eeer 
contained in shi ler hii ee Due to the condi titeumel 
compllation switches contained in the code, it should be 
compiled for either the MCOFTEX version or MXTRACE version. 
Files are provided to be used with the SUBMIT utility [Ref. 
19}. The MCORTEX version cf LEVEL TI is compiled by eae 
the SUBMIT file L2CMPM.CSD (LEVEL2 compile, MCORT =X ) (aye 
II is one of the relocatable code modules shown in the 
SUBMIT file LNKKM.CSD, which is used to link the (megs 
together for KORE.OPS. After linking, the resultant file 
must be located using the LOCSG utility. This iS "ppeiemies 
for in the SUBMIT file LOCKM.CSD (locate MCORTEX). The file 
KORE is created and becomes KORE.OPS efter transfer to the 
multi-user CP/M-86 system. KOPE.OPS is loaded by MCOHTEX .CMD 
under the CP/M-&S6 operating system. Memory maps for KORE.OPS 
and KORS.TKC are provided at the end of Apvendix H. The map 
information comes from KORE.MP2 after compiling, linwisies 
and locating the applicable files. 

In the source listing for LFVFL2.SRC, the executable code 
must begin in column 7 (see L2CMPM.CSr). It appears left 


Justified in this listing due to thesis format requirements. 
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by abe 
<4,* 


we oJ 


Cd The idl} 


t, at 
atc 36 
ate ale 


CT held he 


we we 
bd bed “~~ 


cP 


wig ate ale s¢ s¢ ate abe ole ate ve: 3s ate ale se als se sie ale s'¢ s¢ wy ate at, 
fe gle 3 teatg ae st + abe ate le ale ale ale ale ale yl g'2 8 “ + 4 
bd af h~ 3,¢ ae 4 ae Ie yr 2g Myr Og 25% a oy gh 25% b>) 35 oy 28 


Saco e 


we 5c 


3 ate ate Jo ale ale 
Ld bed 2% 


sts 2 3c ales 
bd ted Cd be “~~ “,y~ a7 2 


i* *\~ ¢ 


ae 


ecco: > 


bo ate 
gh ye 


>, 


SAK DIS AE IE HS 3K 


te we ale ae ale ye als ale 3 ale ale ate alo a ‘e ale ats ale we ste wets ele a's ate 
a? My 2,™ Oye %,* [Tad Cd bad *\* . “~~ wy" FEM Er He *,° Wy: yr Cd Toeliiad Yediiteed bolle tala! Polid Dod 
a'e Zo 3 ate le ate ale ale ata dio we ale Fd et twats ale alo 

#; A led dled lid tiled holed tas Ps 76 as >< or 4° 7 pid 


ote He 91s 


ats * Cc 
5 DO kee eee be CM ei. Go D 
‘ - ° a 
wale ats ale 3c aero s'¢ ale Sc we we we wie ales als ale ats ale alo 3 oe wads owls ale ate ate s‘¢ whe ats ate ate ale ate ale ale ale als ale 3°¢ 3' o ele alae ate ate abe ae al. st Ww s'¢ s'<¢ pala ale ale ale a6 vhs ale 
Sym ym Aye Fe Oy gm Oh 2ye Aye 24m o> 0, Sh Di ts td td id Od Cd Pd Od Pe he es ed od bd pid ed ped told beled ded bled bid bed beled bie bed beled ols Bd bd | 1 Oy eye gr 24% 8% 2, Oe 
lente ae fo aly ale ale ™~) .’ e hee ale ate ale ate nto alo ale alo fo ate ate ale J ente ule ale te ate als ate 
siete sic ate ake afc 1S ate ae ie ak Sie ae afc SIC DHE akc aig ait ale af ak ale ONC sis ale 21 sfe aft aft SI aie Ig Bg SIG Re ES fe OIC OE Ne Ne afe Se ake Of BEE DIE aE SiC BIE ag ake SIE 9K a a 


ee oMS6 2 Fi 


ate we a's ate se Se deals ale ale we ate ale 
Fee SEN yt Gh AES at ey ays gh ge ays as 29> 
ale we ate ewe ate ate ale ale ate ate 
HEHE AEE ACA AS AE AS AE BS AS NE 2K 
aty ale als 
aE My My 

’ , . 
DE DS SI HE AS BS DE US DS D)S 9,S BIE 3S 


ale oi 
YT 


ad 


als ate Ve ale ale ale 


sk et aly a ‘¢ ole 
Ca hoa ht Ga Bia Theta aa ot 


{ tod od te ~~ 3058 


“get 


Pee Leo 


we ate ale ate ate ate te 
Oye Ge ogy oye ge Oye 4° 


LEVELZ.SRC 


we s'e ate 
PA 3,6 ry 


a ac oe als db 4 


32 vie 
ens 


eS HS 


als ol, Le ale al 
Cte ns $36 3K 


Fgh i Rap 


SRS ME As SES oS 


fee ec ORG 


ok Hg HEDIS afc 38 aC aE akc DIC ate aE 
Kook he ok 


SUBMIT ticle 


ate Je 
Lh aiCd Ses 


Sea 


SET (MCORTEX ) 
LARGE 


3's mle wl, 


HE NE <3 ie Be ea a 


al ale se ve 


“ye oo oF tallied } 


ate ale aly ale we 


hd baled ol of o," 


se Sr 
LAHG 


23 


te ate 
38 ~~ 


parase rs 


aT ( MCCRT EX ) 


NOCOND LEFTMARGIN(7) 


ate wr ve ste 


Beare Bie rye oye o Gee Ope ope OG Bas Bes OSE Sam Bie WO S1C Sew ie mus Des ae ee AOS BO Ses 

Dee Pan Oi em annie Amo inie eee cde Oye Ae AE Dee De ye aes Ae Ne he Oe Oye Bas ye Oe Aue Oe Ope oye TAS See Os 
ate aly le 

WA ell G50) ao cacs 


Yo whe 


ate ale 
Ped Cd ted 


35 38 > rae 4 


Patt 


ie ede ME He ae DIE 3S 


ad ate at pe ale aly ale we We ree sles 
Sho Std Sah ad GSE a Set Id CT fa) ef pT pt} 


SE RON IE RE 


we de 
“~ oo 


eC 


gah EA doe date 


NOCOND LEFTMABTIN(7) 


Je 
ead 


[RE 
/*OO 


te Js oS ke ade ate ale 
ac as 7 £98 3S “AP. 26 AS 7E 3S 


se we ale es ina be ale ole ale ale sc ale s'e ale a+ ale ale ale vege on me mAs a Beale ate ale ale nhe ale ale ale ato ate ale ate ale ole als ale ale 
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BESS IK NE BE NE SIS 3k IE 3 eee oo DEAL MEAS SAS SS IS AL SS HS AE AE SC ACT SC AS AS AE 34K OS BENE 31S AE AE BC 36 DIK BK Oe AS OYE Oe NE DIC DUC 3K ay! 


PF OAS HEE BS HR A AE BH AE BR IS DE NS AAS KE YS IE A HIS IS IE AAS Yt IK AE OK Dis IS BS AK AS AE BS AE SC NE 3S IE BIS Bis OS oS BSS Bh AE OYE BE AS mE AE / 
js) rio LEV GZ ; 
VEES ION: BreWkh 8-18-84 
PROC EOURES 
DEFINED: GATESKEFPER CRNATESEVC 
READ AWAIT 
ADVANCE PREEMT 
TC ae CREATESPROGE 
DEFINESCLUSTER DISTRI RUTIONSMAP 
OUTSCHAR CUTSL INE 
OUTSNUM OUTSDNUM 
SENDSCHAR OUTSHEX 
RECVSCHAFP INSCHAR 
INSNUM INSDNUM 
INSHEX 
FO ee WeSee PY! CAUTION f'! {2 CAUTION I!! U1! CAUTIONS 


IF NEW USER SFRVICES ARE ADDED TO THIS MODULE 
OP CHANGES ARF MADK TO EXISTING ONES, MAKE 
SURE THE LOCATOR MAP (FILE: KORE.MP2) ITS) @Hiagee 
ED TO SEE IF THE LOCATION OF “GATESKEEPFR” HAS 
NOT CHANGED. THE ABSOLUTE ADDRESS OF THIS 
PROCEDURE HAS BEEN SUPPLIED TO THE GATESMODULE 
IN FILE: GATE.SEC. IF IT HAS CHANGED THE NEW 
ADDRESS SHOULD BE UPDATED IN FILE: GATE.SRC 
AND HRECOMPILFD. ALL USER PROCESSES WILL HAVS 
TO BE RELINKED WITH FILS: GATE.OBJ AND 
RELOCATED. 


LITERAL DECLARATIONS GIVEN AT THE BEGINNING 
OF SFVERAL MODULSS ARE LOCAL TO THE ENTIRE 
MODULE. HOWEVER, SOME AXE LISTED THE SAME 
IN MORE THAN ONF MODULE. THE VALUE AND 
TREERRFORE THE MEANING OF THE LITERAL IS 
COMMUNICETED ACKEOSS MODULE BOUNDARIES. 
“NOTSFOUND” USED IN LOCATESEVC AND 
CFEATESEVC IS AN EXAMPLE. TO CHANGE IT IN 
ON#® MODULE AND NOT THE OTHER WOULD KILL 

THE CREATION OF 4NY NEW EVENTCOUNTS BY THE 


OS. 


CONDITIONAL COMPILATION COMMANDS ARE USED TO 
PFODUCE TWO VERSIONS OF THE MCORTEX OPERATING 
SYSTEM. MCORTEX IS THE VERSION WITHOUT ANY 
I/O PERTAINING TO ENTRY OF OS PRIMITIVES. WITH 
THIS VERSION IT IS EXPECTED THAT THE USER HAS 
COMPLETED DEPUGGING OF USER PROCESS CODE AND 
THIS IS NO LONGEP NFCESSARY. IN CONTRAST, 

TUF CODR EFRACKETFD BY ‘NOT MCORTEX IS THE CODE 


ee 


FOR THF TRACE VERSION OF MCORTSX KNOWN AS 
PT RAGwee TPIS VERSION PROVIDES DIAGNOSTIC 
"HOOKS INTO THF OS AND SHOULD BE USED DURING 
THE CODE DFVFLOPMFNT STAGES. 


% / 


t ate ate ete . e td - — - “1 
FE AEA FE EAE AS CHE AS BEE 2K BE AE AE AK NE AS AR AE OE SAE HAE AE AE REE EAE BE AE EE OE HE SE AE OIE SIE MIE AS SHE AE SIE AE AI AIS AR AS OUT IEE IE ET AS / 
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LesMODULE: DO; 


if eg SG a pain So dre CRI RSD hd Rae densi dnd Side = Ed A etd ab Ad Ab lie £-abt ae Ades I ae Bao 4b SEN Set Sp as So See YPN ed SD a Re Ay 4 St Sd Se Rd / 
cd cal a e { (4 ca cd v 
Iai eee 290 ue M08 AG 29 ye ONE Mae 4 GS MAE ah AE AE ONE 2h HE AAS MO OF AS HEE 26 OC Bek AR Ae AK Mee MS FE HE OE OS MAE AE TC HE NE HE Bee AE IE MK OE ACE OE BEAT EE / 


/* LOCAL DECLARATIONS © */ 


DECLARE 
MAXSCPU LITERALLY 104 
MAXSVPSSCPU iol Th hoa “10 
MAXSCPUSSSSMEXSVPSSCPU LITERALLY 1700’ 
FALS® CIR Ese Cnn 
READY LITERALLY il 
RUNNING Li wenn’ “s 
WAITING DIVER ADE 7 
TRUE eee A “119° 
NOTSFOUND ih IS EY GiGi 255° 
PORTSCA LITERALLY ‘’@@CAH’ 
RESET PAC ili! “@ 
EN®T Livan by oer 
ERBSBLOCKSLENGTH 11 Pee Y eee 
EVCSTYPE 8 Pele “Ce, 
FRBSREAD PT ah cro on “AFCH’, 
ERBSWRITE Tl LERA LLY “ARDH’, 
FRBEWEITESHKFOUEST LITERALLY 6s alee 
INTSRETURN LITERALLY 743 ade 


LEB ZiD MAE A EAE AEE ERE IE ONE IE IE AE FE ARE HE AE SIE IE OE OK EE NE BIS ENE HE IE DAC ANE YE BE OYE AE AE DHE ANE TE IE HE IE IK HE ANE BE IE OE AE / 
/* PROCSSSOR DATA SEGMENT TARLF , 7% / 


Ve PELARED PUBLIC IN MODULE “L1$MODULE’ a / 
e IN FILE “LFVEL1 a / 


DECLARE PADS STEUCTURE 
(CPUSNUMBEP | BYTE, 
VPSSTART BYTT, 
VPSEND BYTE, 


dlevas te 


VPS SPRRSC2u Rie 


PAs TSUN joi IE 

Goo Nak WORD ) EXTFRNAL; 
/* Ol 1 BX Ea A ak ap SIG Dee Dia at Fe oie oes ole Oem te Oe tis ee ee oe ere Coc Oc cele o iS DIE BIS BIE SHE DE BIE ZEAE FAS EAE BIS IE HC DIE BE AE OE / 
7 Geo e At, DATA EASE DECLARPS TIONS a 
[* DECLARED PUBL Vee ieee | OP A Dee 7 
es IN MODULE “GLOBALSMODULE* a, 


DECLARE VPM( MAXSCPUSSSSMAXSVPSSCPU ) STRUCTURE 


(VPSID BYTE, 
Su 5 BYTE 
VPSPRIORITY BYTE, 
EVCSTHEEAD BNET S.. 
EVCSAWSVALUE WORD, 
SPSREG WORD, 
SSSREG WORD ) WXTRRNAL; 
Bie inher 
LOCALSCLUSTFREADDR . WORD EXTERNAL} 
DECLARE 
EVENTS RYTE EXTERNAL} 
DECLASE EVCSTRL (192) STRUCTURE 
(EVCSNAMS Ryne. 
VALUE WORD, 
REMOTES ADDR WORD, 
THREAD BYTE) EXTFRNAL} 
DECLARE 
SEQUENCERS RYTF EXTERNAL; 
DECLARE SFOSTABLE (100) STRUCTURE 
(SEOSNIME BYTF, 
SEQSVALUF WORD) EXTERNAL; 
DECLARE | 
NRSVPS! MAXSCPU ) RYT? EXTERNAL, 
NRSRPS RYTE EXTERN 4L, 
HDWSINTSFLAG (MAXSCPU )RYTE EXTERNAL, 
GLOBAL$SLOCK RYTE EXTER a 
J EGBA BE BER AEAE RE FE HS NE TE HE BAC HE AE AERIS IRE TC OEE AE NE IE HE EE HSA KC OK OE OIE BC OE DEE AK OE AE BIS 2 BE HE NEI BRE NE HE REDE AE / 
/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES ef 
acs DFCLARED PUBLIC IN FILS ‘’LEVEL1.SRC’ ay 
J IN MOPULF “LEVELISMODULE ” 7, 


VPSCHEDULER: PROCEDURE FXTERNAL; END; 
f* IN FILF “SCHED. ASM’ */ 


reais 


Peal > VP : PROCEDURE BYTE @XTERNAL; END; 


MmechTESHYC : PROCEDURE (FVFNTSNAMF) BYTE EXTERNAL: 
DECLARE EVENTSNAME BYTE; 
END; 


MmechPTESSEC : PROCEDURE (SEQSNAME) BYTE EXTERNSL; 
DECLARE SHQSNAME BYTES 
END; 


LECT IH** Bae pC inen aia ix 2,6 dew eet ork oe ere ae lees Me ue Oe ee oe oe ae ays ee SIE SiS HE ES HK iS AS HE ONS AS Bis SIE BE BE EME EK ES / 


/* DIAGNOSTIC MESSAGES OR HOOKS E7 


SIF NOT MCORTEX 


DECLARE 

MSG16(*) RYT? INITIAL ( “ENTERING PREEMPT’ ,13.19, ae, 

boi 7(*) BYTE INITIAL\ ISSUING INTERRUPTI! io, iO ea ee 

Peole(*) BYTB INITIAL( ENTERING AWAIT’ ,1¢,12,°%"), 

MSG19(*) BYTF INITIAL ( “FNTPRING ADVANCE “49,13, °%"), 

MeGeil{~) BYTE INITIAL( ENTERING CREATESEVC FOR %7), 

MSG2Z3(*) BYTE INITIAL(’°®NTERING HKEAD FOP EVC: 2: 

epee ee YTS TNITIAL( ENTERING TICKST’,13,.1¢, 27), 

meme o(*) BSYTE INITIAL(  SNTERING CREATESS FO ae ae 

MSG26(*) BYTE INITIAL( “ENTERING CREATESPRKOC’ 12,13, KY, 

MSG27(*) BYTE INITIAL (19, “®NTERING GATESKEEPER Ne ee 
DECLARE 


See GITERSLLY @DE° 
MeL ITeRALLY GAR’; 


SENDIF 

RI eS ACHE Hye FONG DD A MS A AK MR DG AE 2 aycicgs IE Are oye ie MME SE Ae rAe ITC OG EE OE / 
[rR © Ss SS RD ASE RA edo dred Sdn a Sel idee ow de ip A al ml 4 dee > Ad de ain Sh Weld ae 9 eet daar der ae na NS Aa Gy Gi dp a Ah Ra eR Se BE EAE AG EAE A / 
ye GAYESKEEPER PROCEDURE BREWE rR e 1e- 5 ER, 
/ Meets eee ec ede ae o.6 Some eee te Ree Skiers Doce Sct S1e Seo eee Ore Oye See ope Se ote ieee OM eie Die Dak oe oe Oe Oct phan s ie abd he 
fom EIS PROCEDURE IS THE FNTRY INTO THS OPERATING cy 
/* SYSTEM DCMAIN FROM THE USER DOMAIN. THIS IS THE *« / 
fs BSCCESS POINT TO THE UTILITY/SERVICE ROUTINES AVAIL- = */ 
Pees BLE TO THE USER. THIS PROCEDURE IS CALLED BY TYE yf 
/* GATE£ MODULE WHICH IS LINKED WITH THE USER PRCGRAM. ae 
/* IT IS THE GATE MODULE WHICH PFOVIDES TiANSLATION x / 
/* FROM THE USER D?SIRED FUNCTION TO THE FORMAT REQUIR- */ 
f* 8D FOR THF GATEKEEPER. THE GATEKEEPER CALLS THE ay) 
Poe DEST EBD UTILITY 7SERVICE PROCEDURE IN LEVEL2 OF THE Ory) 
Pe OPERATING SYSTEM AGAIN PERFORMING THE NECESSAFY yf 
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at 
ay 


/* TRANSLATION FOR A PROPFPR CALL. THE TRANSLATIONS ARE 
/* INVISIBLE TO THE USER. “THR CATEK GIP YR a ees 

/* PROVIDED TO TYE GATF MODULY TO BE USED FOF THE IN- 
/* DL eae Cache. 

/* PHE PARAMPTER LIST IS PROVIDED FOR CONVENIENCE AND 
/* EEPRESBENTS NO FIXED MPANING, BXCEPT FOR 'N’. 


é Se 
3 Ser 2 


~ % (st 
a NU OR ee 


ae 
3% 


ie N FUNCTION COD® PROVIDED BY GATE 

es ie BYTE VARIABLE FCR TRANSLATION os 
Pe WORDS WORD : : : xe 
[> wh le a Dee FOR TRANSLATION a 
[PED P24 Gr AE BE os o SHE SS BE NS SHE AE SES SIS ae Sts Be oho aig HS ois Sk HE OEE SS MRS SHE TE BI BNC NS OK OE SIE ONS Si SS NS 3K TNS SIE ONS SIS Meas is He BEE HE 


GATESKEEPSR: PROCEDURE(N, PYT, WOIDS, PTR) REENTRANT PUBLIC; 


DECLAPE 
(Nee) Pa 
WORDS WORD, 
PTR FOUN Tir. 


Ss I-O SERVICES ARB NOT ACKNOWLEDGED FOR TWO ERASONS: a: 
« 1. TREY ARE CALLED SO CFTEN THAT DIAGNOSTIC OUD TI 
/% WOULD BE TOO CLUTTERED. oy) 
la 2. THEY TREMSELVNS PRODDCYS T-Geire ht le lia 7 
yf ACKNOWLEDGE THEY AR® BEING CALLED. 2 


SIF NOT MCORTFX 


IF N < 10 THEN DO; 
CALL OUTSLING  GMSG27)) 
CALL OUTSNUM(N)3$ 
CALL OUTSCHAR‘CR)3 
CALL CURSCEAR ULE |: 


END; 
SENDIF 

DOO: fe NN / 
CALL AWAIT(EYT,WORDS): [i ey 
CALL ADVANCE(RYT)3 J®¥ 1 */ 
CALL CREATRSEVC( RYT); f%. 2 */ 
CALL CRERATESSEO( RY De a 
CALL TICKET CRs oT an, fa 4a 
CALL AGE Ap CR eles hoe x oS / 
CALL CREATESPROC(PTR); j= (6, 
CALL PREPMPT( RYT }4 i i 
CALL DEFINFSCLUSTER (WORDS) 3 /* Q@ 
CALL DISTRIBUTIONSMAP( PTR )3 f* QQ */ 


SIF NOT MCOFTEX 
Jee MYTRACK #8 MYTRACH te MEITRACE MR MXTRACE #2%/ 


15¢ 


[282 MY TRAC S sears Moon RaA Ce Be 38 BIS AS 3S MyoL RAC hk AAA XY TOA CE WAS / 


GALL OUTSCHAR(RYT): /*¥ 10 */ 
mol CUTS. INE ORR ) + Pe Yi %*/ 
CALL OUTSNUM(BYT)3 J*®¥ 12 */ 
CALL OCUTSDNUM(WORDS):3 VS 7 
CALL INSCHEAR( PTR); /® 14 */ 
CALL INSNUM(PTR)3 J® 15 */ 
CALL INSDNUM(PTR)3 J* 16 */ 
SENDIF 


END; /* CASE */ 
RETURNS; 
END; /* GATESKEFPER */ 


LED CBG BE ARATE HES ER Ae AE NE AE AS AHR AE DAE BIE AE AEE NE OYE BIE ANE BE IE AAG AE AE FE BIE FE EA 24S DE BIE NE EE EAE Oe AE ORE AS BE OEE / 
/* CREATESEVS PROCEDURE BREWER €-1e-84 */ 
[ ¥-—------ -- - -- - ee eee x / 
/* CREATES EVENTCOUNT FOR INTER-PROCESS SYNCHRONIZATION. */ 
Pe SEVENTCOUNT IS INITIALIZED TO @ IN THE EVENTCOUNT TABLE.*/ 


CREATESEVC: PROCEDUZE(NAME) REENTRANT PUBLICS: 
DECLARE NAME BYTE: 
SIF NOT MCORTEX 


JK MX TRACK RIE MY TRA CR HR MYTRACE mK MXYPRA CK ce / 
Jee METRACKE F% MXTRACKH AER MXTRACE HK MYPRACK 4K / 
PAGE OUTSLINE(@MSG21); 
CELL OUTSNUM(NAMP) 3 
Geel CUTSCHAR(CR); 
Geb OUTSCHAR(LF); 


SENDIF 


/* ASSERT GLOBAL LOCK */ 
MOM RILE LOCKSET(@GCLOBALSLOCK ,119): END; 


eo, Sere EN COUNT DONS NOT ALREADY EXIST */ 

LOCATESEVC(NAMF) = NOTSFOUND THEN DO; 
/* CREATE THE FVENTCOUNT ENTRY BY ADDING THE */ 
/* NEW EVENTCOUNT TO THE END OF THE EVCSTABLE */ 
EVCSTBL(EVENTS).FVCSNAME = NAME; 
PiOstPiGiMaeENTS).VALUE = @; 
EVCSTBL(EVENTS }.8EMOTESADDR = LOCALSCLUSTERSADDR; 
EVGoce i SVENTS ). THREAD = 255; 
/* INCREMENT THER SIZE OF THE EVCSTARBLE */ 
EVENTS = BVENTS + 13 

END: /* CREATE THF EVENTCOUNT */ 

/* RELEASE THE GLOBAL LOCK */ 
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GLORALSLOCK = @3 
PETURN 
END; /* CREATESEVG PROCEDURE */ 


LEDS C4 EE? BRS BS HE SK IE EIS BS AE HE AE NS AT AE AE AE NE DC AE TE IS YE AE TYE AS I BH SKC BK MEAL IK AE OK OS BES OR SIE OS 3k oO me tiie 


/*  RRAD PROCEDURE BREWER 8-14-84 ms 
i | ee ee ne a een rt ee a ee 

/* THIS PROCEDURE ALLOWS USFRS TO READ THE PRESENT VALUE iy 
/* OF THE SPECIFIED EVENTSCOUNT WITHCUT MAKING ANY me / 


/* CHANGES. 4 POINTEP IS PASSF) TO PROVIDE A BASE TO 4  */ 
/* VARIABLE IN THE CALLING ROUTINE FOR PASSING THE RETURN */ 


/* VALUE RACK TO THE CALLING ROUTINE. ay 
[ERE ETE NE DE HERO REE SCC AS BEC AE EE A OC NE a HE BE OK AK MEE a a a ee a ae a aK a RSI e AE BRE SA aA aE / 


TEAD: PROCEDURE( EVCSNAME, RETSSPTR ) «BENTRANT PUBLIC; 


DFCLATF 
EVCSNOME BYTE, 
EVCTBLSINDEX PYRes 
RETSSPTP POINTER, 
EVCSVALUFSEET BASED RETSS$PTR WORD; 


/* SET THE GLOBAL LOCK */ 
DO WHILE LOCKSET(@GLOBAL$LOCK,119)3 END; 


SIF NOT MCORTEX 


JK MXYTRACKH Mee MYPTRAC KH AAO MX TRACK HE MXTHACKH x / 
JRE MXTRPACE RE MYTRACR RRR MYTRACE cea MX TRACE EX / 
CALL OUTSLINE(@MSG23) 3 
CALL OUTSNUM(EVCSNAME);3 
CARL. OULSCELR. GR Is 
CALL OUTSCHAR(LF)3 


CRENDIF 


/* ORTAIN INDEX */ 
BVCTBLSINDEX = LOCATESFVC( EVCSNAME )3 


/* “OR TAT NVA EU 
FVCSVALUESRET = EVCSTRL( EVCTRLSIND®X ).VALUE; 


/* UNLOCK GLOBAL LOCK */ 
LOBALS LOC Khe= Cu. 
RETURNS 
END; /* READ PROCEDURE */ 


J EBB GQ ERE EAE EO OE BEI SIE NE TE NC NEE OI BC NE BE BIE NE BCE 21S OIE BE BIE DIE AE ANE SSC OE ENC SIE EOE IE CS AICTE ME AIC AC BIE RE / 
/% WATT PROCEDURE 7, 
= a a a a en yy gE oe se ee ee eee * 


Loe 


‘USED BY THE OPEPATING SYSTFM FOR THE MANAGEMENT OF 
* SYSTEM RFSOURCES. 


ate als ale ate v2 wie Se ale wh 
se, > ogy yr *,~ 6h Mgt oe myP +," ry 


mime FLOCESSs SYNCHRONIZATION PRIMITIVE. SUSPENTS zs 
PXFCUTION QF FUNNING PPOCESS UNTIL TEE EVENTCOUNT HAS * 
BEACHSD THE SPPCTFIED THEXESHOLD VALUE, AWAITEDSVALUE. 


Ate AA AS 
ea fay 


Oi 


le whe ale We ats ele le ate ale We ale abe ye whe ale So Se alc ute ule ates - ule ale se vie 12 whe 3" whe mts wie ate ate ale ale ate we 
r > Coat bed cd Ded ea 7\~ bd ted > bad bed ** a bes dl teed 7 o,~ -,* ™ Ld tee ~~ od ted Cd ted Cd tag a> 4,> ee Cd bed “;4* id ted “ > “> > *,* Cod td cad ad 7,” +," “1~ 


AWALT: PROCEDURE(EVCSID,AWASITFEDSVALUE) REENTRANT PUBLIC; 


DECLARE 
AWAITEDSVALU® WOaD, 
(EVCSID, NEEDSSCHED, RUNNINGSVP,EVCTBLSINDEX) BYTE; 


SIF NOT MCORTFEX 


is He 3S 
[e* 


* MXTRACR care MYTRA CW xrKoKAC Ke MXTRACE  w7E3K sxe MX TRACE AEH / 
xs MXTEACE SK AS OK HE MXTRACE se re sis ae stk MXYTRACER ‘282 203% MXTHACE sae RS / 


CALL OUTSLINE(@MSG18);3 


SENDIF 


Pe=LOCK GLOBAL LOCK */ 
MeewHIL® LOCKSSET(@GLOBALSLOCK, 119); END; 
NEEDSSCHED = TRUF; 


/* DETERMIN? TRF RUNNING VIRTUAL PROCESSOR */ 
RUNNINGSVP = RETSVP3 


/* GET FYC INDEX */ 
POTRESINDEX = LOCATESEVC(EVCSID); 
/* DETERMINE IF CURRENT VALUE IS LESS TEAN THE 
AWAITSD VALUE */ 
IF EVCSTPL(FVCTBLSINDFEX).VALUF < AWAITEDSVALUE THEN DO; 
/*® BLOCK PROCESS */ 
VPM(LUNNINGSVP) .RVCSTHRRAD=EVCSTBL(EVCTBLSINDEX) .THREAD 
VPM(RUNNINGSVP). EVCS4WSVALUE = AWAITEDSVALUS3 
EVCSTRL. EVCTBLSINDEX ).TRREAD = RUNNINGSVP; 
DIS ABLF; 
PRDS.LASTSRUN = RUNNINGSVP; 
VPM( ZUNNINGSVP).STATE = WAITING 
BND; /* BLOCK PROCFSS */ 


ELSE Zia Oo NOTE BLOCK wr OU Moai? 
NEFEDSSCHED = FALSE; 


/* SCHFDULS THF VIRTUAL PROCESSOR */ 
IF NEEDSSCHED = TRUE THEN 
CALL YPSCHEDULER; /* NO RETURN */ 


/* UNLOCK GLOBAL LOCK */ 
GLOBALSLOCK = @3 
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/ 
/ 


e 
? 


RETURN; 
END; /* AWAIT PROCEDURE */ 


[D4 27 AEF aoe hoe AS De Dew Bye AGS ERIK Bk AR SS ME ME HE re ie Oe ole Sie Se oie ote Sie Sie Sie Sie Sigere sis oe ore se oc oe oe oie oie cree ee 


</ 
Ee ADVANCE pees ider “PREWER 8-18-84 / 
/* INTER PROCESS SYNCHRONIZATION PRIMITIVE. INDICATES ba 
/* SPECIFIED FVENT RAS OCCURED BY ADVANCING(INCREMENTING)*/ 
/* THE ASSOCIATED EVENTCOUNT. EVENT IS BROADCAST TO ALL oy 
/* VIRTUAL PROCESSORS AWAITING THAT EVENT. 2 / 
/* 26 CALL TO ADVANCE WILL RESULT IN A CALL TO THE SCHED- */ 
/* ULER, EVEN IF THE ADVANCING OF THE EVENTCOUNT DOFS cy 
/* RESULT IN AWAKENING ANY NEW PROCESSES. THUS, ANY / 

Vi 

y 

y 


/* HIGHER PFIOFITY ONBOARD PROCESS READIED BY AN OFF- a 
fe BOARD OPERATION WOULD BE SCHEDULED NEXT. = 
/*  CRLES MEDS ECO. s OUT Ui / 
/* SySuemsie uy, 
/* VPSCHEDULER (NO RETURN) a / 
[REE RORE HEHE CE I Be HE SEA De NORE RE RE ARE EE EIS BE REC a SA COE RENE SE Ea RE BE EE BK OO SOE aR EEE 


ADVANCE: PROCEDURE(EVCSID) REENTRANT PUBLIC} 


DECLARE 
(EVCSID, EVCTRLSINDFX ) BY Lee 
(SAVE, RUNNINGSVP, DUMMYSVAR, I) BYTE 
CLUSTERSADDR . WORD; 


Slr NOT MECC 


Peek METRACK eer MXYTRACR 200% MYTRACE Fee MY TRACE 2K / 
7 METRACE SRR MYTPACE HOH MYTRACE BOK MTRACE nS / 


CELL OUTSLINE(@MSG19) ; 


SENDIF 


/* LOCK TH" GLOBAL LOCK */ 
DO WHILE LOCKSET @GLOBALSLOCK,119)3 END; 


RUNNINGSVP = RETSVP3 
EVCTBLSIND®X = LOCATFSFVC(FVCSID); 


FVCSTBL(EVCTRLSINDEX) .VALUP=EVCSTBL( EVCTBLSINDEX ).VALUE + 13 
IF FEVCSTRL(RVCTBLS INDEX) .KFMOTES ADDR <> LOCALSCLUSTERSADDE 


THEN DOs 
/*® REMOTE COPY IS NERORD = Ter eCO viene ieleon 
AN EV®NTCOUNT THAT HAS A REMOTE COPY WILL 
NOT HAVE ITS RSMOTSSADUR Fle Doe eo ee Os 
LOCALSCLUSTSRSAp pr 
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ae / 


CLUSTFRSADDR=EVCSTBL(EVCTELINDEX) .REMOTESADDR 
MOO MECCA LOO UUs TReSADD:R; 
GCLOBALS LOC = 7; 
CALL SYSTEMSIO(FN®TT, RVCSTYPE, EVCSID, 
EVCSTBL( EVCTBLSINDEX).VALUE,CLUSTERSADDR); 
DO WHILE LOCKSSRT(@GLOBALSLOCK,119); END; 


END; /* ITD */ 
Save = 255; 
f= SVCSTELC = FVCTRLSINDEX ).THREAD; 
Der wolLF f <> 255; 
IF VPM(1I).SVCSAWSVALUF <= EVCSTBL(EVCTBLSINDEX) .VALUE 
THEN 103 /** AWAKEN THE PROCESS */ 
eel aso TATE =n uh DY s 


VPM( IT). EVCSAWSVALUE = @3 

IF S4VE = 255 THEN DO; /*THIS FIB8ST ONE IN LIST*/ 
DUMMYSVAR = VPM(I).RVCSTHREAD; 

EVCSTBL( EVCTBLSINDEX) .THREAD = DUMMYSVAR; 
Vee env CSTHnrAD = 255% 
Me meeVCSTon( BVCRBLSTNDRY ) > PHEEAD; 

END; /* IF FIRST */ 

MLSS. UO /* TEEN THIS NOT FIRST IN LIST */ 
VPM! SAVE ).FVCSTHPEAD = VPM( I ).EVCSTHPEAD; 
VPM{ I ).FVCSTHRSEAD = 2553 
1 = VPM( SAVE ).BVCSTAREAD$ 

ENDs eye IF NOT FIRS Te*s/ 


END; /* TF AWAKEN */ 
ELSE DOQ3 /* DO NOT AWAKEN THIS PROCESS **/ 
Soon Ce 
foro oer) ) oF Vi > THREADS 
END; /* ITF NOT AWAKEN */ 
END$ /* DO WHILE */ 


PRDS.LASTSRUN = RUNNINGSVP3; 
VPM(RUNNISGSVP) STATE = READYS 
Cabs VeocraDuLERs /* NO RETURN */ 
/*® UNLOCK THE GLOBAL LOCK */ 
CROBHESLOCK = @; 
RETURNS 

END; /* ADVANCE PROCEDURE */ 


[EQS 1 BEE BE ERE AEE AEE AED AE HEDIS EAE FE HE FSA AE AE NE AE IE AE ACE HE HE OE IE SAAS HEINE ANE AE DE IE IE EE IE IS TAISEN AEE / 


Poe PREEMPT PROCEDURE BREWER 8-18-84 */ 
[*# -----—-~—- — -- --- -- -- - - 5 * / 
/* THIS PROCEDURE AWAKENS A HI PRIOITY PROCESS LEAVING / 


/* THE CURKENT RUNNING PROCESS IN THE READY STATE AND a, 
/* CALLS FOR A RESCHEDULING. THE HIGH PRIORITY PROCESS % / 
/* SHOULD BLCCK ITS®LF WHFN FINISHED. 7 
[* IF THE VPSID IS “FE” OR THE MONITOR PROCESS, IT WILL */ 
/* MAKE IT READY WHFRE-EVFR IT IS IN THE VPM. THE FOLLOW-*/ 


Teo 


/* ING CODE DOES NOT TAKE ADVANTAGE CF THE FACT THAT 


/* CURFFNTLY IT 1S HE THIRD ENTRY TN The eee ree. 7, 
/* HEAEw Pe OCE sous x / 
iu i ae ee ee eee + ee ee sie 
/* CALLS MADE TO: OUTLINE, VPSCHEDULER x / 
[FE BR FE ASAE BE BR EAR HE HEHE EIR ACH AE OI AR BE BR HE HE AS IE AE IE AE TIE I AC OE HE HE AEDS AE NE AE HE EAE IE AE DE IE IE OE ALE IE AEE AS / 


PREEMPT: PROCFDURE’ VPSID ) REFENTRANT PUBLIC; 
DECLARE (VPSID,SEARCHSST,SFARCHSEND,CPU,INDEX) BYTE; 


SIF NOT MCORTEX 


/**E MX TRACE RK MXTRACE exer MXTRACE 820% MX TRACE *¥% / 
/*= METRACE #4 MXTRACE FRC METRACE HR MYTRACE AK / 


CALL OUTSLINE( @MSG16 ); 
S ENDIF 


IF VPSID <> @OFEH THEN DOs /* NORMAL PREEMT */ 
/* SE*“ECH VPM FOR INDEX FOP ID *¥/ 
SHARGHSST = 95 
DO CPU = 9 TO (NRSRPS - 1)3 
SEARCHS END = SEARCHSST + NRSVPS( CPU ) - 1 ; 
DO INDFX = SEARCHSST TO SEARCHSEND; 


IF VPM( INDEX ).VPSID = VPSID THEN GO TO FOUND; 


BNDs 7= DO INDEX. = 
SEARCHSST = SEARCHSST + MAXSVPSSCPU;3 
END; /* DO CPU ¥*/ 


/* CASE IF NOT FOUND IS NOT ACCOUNTED FOR CURRENTLY * 


FOUND: 
/* LOCK THE GLOBAL LOCK */ 
DO WHILE LOCKSSET(QGLOBALSLOCK ,119); END; 
/* SET PREEMPTFEFD V? TO READY */ 
VPM( IND@X —) 2ST == Relais 
/* NEED FARDWARE INTR OR QE-SCHED */ 
IF ( CPU = PRDS.CPUSNUMBER ) THEN DO; 


INDEX = RETSVP; /* DETERMINE RUNNING PROCHS Gua 


PISABLEs 
PRPDS.LASTSRUN = INDEX; 


VPM( INDEX ).STATE = READY; /* SET TO RAW 


CALL VPSCHEDULER$ /* NO SETURN */ 
END; 
ELS® DO} /* CAUSE HARDWARE INTERRUPT */ 


SIF NOT MCORTEX 


/**% MXTPRACK HOR MY TRACE #8 MXTRACE wR MX TRACE 5 / 
/*** MXTRACKE AH MXTRACK HR MXTRACE RRR MX TRACE EX / 


CALL OUTS EINE ( CMS G7). 
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SNDIF 


4 


HDWSINTSFLAG( CPU ) = TRUE} 
DISABLE; OUTPUT( PORTSCA ) = 8H; 
Chin The 1) ; 
CULT er ORroGA jee RESET; ENABLE; 
ENDS 
END; /* NORMAL PREEMT */ 
ELSE DO; /* PREEMT THE MONITOR */ 
/* SFAFCH VPM FOR ALL ID’S OF @FEH */ 
SHARCHSST = @; 
MOmWhILE TOCKSSET(@GGLOBALSLOCK,119)3 END; 
DO CPU = 4% TO (NESPPS —- 1); 
SEARCESFND = SEARCHSST + NRSVPS( CPU ) - 13 
oaecte nL INESPLAGS EXCPPT THIS CPU'S */ 
IF PRDS.CPUSNUMBER <> CPU THEN 
HDWSINTSFLAG( C?U ) = TRUE 
DO IND®X = SFAPCHSST TO SBARCHSEND; 
IF VPM( IND®X ).VPSID = VPSID THEN 
VeMiee INDEX J.STATE = READY; 
A Bsa ae ee) Oe a / 
SMARCHSST = S®PARCHSST + MAXSVPSSCPU; 
END; /* ALL MONITOR PROCESS SET TO READY */ 
/* INTERRUPT THE OTHFR CPUS AND 
RESCHEDULE THIS ONE af 


SIF NOT MCORTEX 


JRE METRACE RR MYTRACE ROKR MXPRACE ORK MX TRACE *8% / 
Jee MXTRACE * MYTRACE FH MXTRACE HC MXTRACE %% / 


CALL OUTSLINE(G@MSG17)$ 
SENDIF 


DISABLE; 
OUTPUT( PORTSCA ) 
CALL TIME te) ; 
OUTPUT( PORTSCA ) 
ENABLF; 
INDEX = RETSVP3 
esa BIE 
PRDS.LASTSPUN = INDEX; 
VOMeOUND UX IeOTATE = READY; 
CALL VPSCHEDULER; /* NO RETURN */ 

aos /* ELSE 

/* UNLOCK GLOBAL MEMORY */ 

PLOpeLsLOck = G; 

RETURN; 

END? /* PREEMPT PROCEDURE */ 


(I 


BCH; 


RESHTs 


Po? 


LE QE BL 2S PE EAE A BEBE BE BE AE AE BEE NEN NESE NE HE BE AE A RE OK TE OI DI IE BK OS BS AK BE I BIC DS DERE EAS IE OIC TENE EO I aS / 
ye CREATES PROCEDURE BREWER 2-18-24 x 
/* a % / 
/* CREATOR OF INTER PROCESS SFOUENGER PRIMITIVES FOR USER */ 
/*® PROGRAMS. CREATES A SPECIFIED SHOUENCER AND INITIAL 
/* TZES IT TO @, BY ADDING THE SSQUENCER TO THE END OF eae 
/* SEQUENCER TABLE. He / 
[Bm e em - 7 a a a ss pe Se ee * / 
* CALLS MADE TO: OUTSLINE OUTSCHAX "e/ 
ES OUTSHEX ar if 
JRE AEE IE RE AE HE AL HE 25 AEE BEBE AE NE AE BK HAE CA BEA RE AE BE OE HE AAS KOE AE DE OE BE AE AIEEE BAS AS HEE BE AC OE AE ANCE IEEE BE RE BE / 


CREATESSEO: PROCEDURE(NAMF) REENTRANT PUBLIC; 
DECLARE NAME BYTE} 


/* ASSERT GLOBAL LOCK >*/ 
DO WHILE LOCKSET‘@GLORBALSLOCK,119)$ ENT; 


¢IF NOT MCOPTEX 


18 MXTRACE 20908 MXTRACE OCR METRACE HOU MXTRACE % ey 


CALL OUTSLINE(@MSG25) 3; 
CALL OUTSHEX(NAME)$ 
CaLL OURS GHA Gren 
CALL OUT CHARI Gs 


SENDIF 


IF /* THE SFOUENCFR DOFS NOT ALREADY EXIST, IE */ 
LOCATESSEO(NAME) = NOTSFOUND THEN DO; 
/* CREATE THE SKQOURNCER ENTRY BY ADDING THE */ 
/* NFW SEQUENCER TO THF FND OF THE SEOQSTABLE */ 
SEQSTABLE(SBOUENCERS ) .SROSNAME = Savcnss 
SEQOSTARLE(SFOUFNCERS).SEQSVALUE = 3 
/* INCREMPENT NUMEBR OF SFQUENCERS */ 
SEQUENCERS = SFOUENCERS + 13 
END; /* CREATF THE SEQUFNCER */ 
/* RFLEASF THE GLOBAL LOCK */ 
GLOBALSLOCK = @$3 
RETUEN; 
FND; /* CREATSSSEQ PROCEDURE */ 


JE GBF QE EEE ENE BEE AE BI IE RE IE HEE EAE HE SC OES HE IE I HE BC BC HE NE IK HE NE DIC NE RE NE DE DE NE DE I ANE IE DERE DIE IEE HE DICE BK / 
Vos TICKET PROCFDURE BREWER 6-18- B4 * 
[*----—- ---- -------- --- -- - - — -- -- - - - ee = - x / 


/* INTER-VIFTUAL PROCESSOP SEQUENCER RPIMITIVE FOR USER */ 
/* PROGRAM. SIMILAR TO ‘TAKE A NUMBER AND WAIT.’ RETURNS*/ 


2 


Laie 


/* PRESENT VALUE OF SPECIFIED SEQUENCER AND INCKEMENTS THS*/ 
/*®* SEQUENCEF. & POINTER IS PASSFD TO PROVIDE A BASE TO A */ 
/* VARTA BLE IN THE CALLING ROUTINE FOR PASSING THE RETURN */ 


as VELUE PAG K Te THE PE Oe ROW ane. eG 
i re a ee a cee a) ee es ——a— = - XK / 
PeeeeCALLS MADE TO: OUTSLINE af 
FF RES BRAG FE AG AR AE KOR IE FE TR EAE EAR EAE > Beare eek Sporn aes 246 AO ze ee on tm oP bp do dp beara el ad SHEER FEAT AS AS 2 ES / 


TICKET: PROCEDURE( SEOSNAME, RETSSPTR ) REENTRANT PUBLIC; 


DFCLARE 
SEQSNAMF Jet IS 
SEQTBLS INDEX it, 
ins > PrP POUNTER 


SEQSVALUBSRET BASED RETSSPTR WORD; 


foo oka! GLORAL LOCK *7 
DO WHILE LOCKSET(@GLOBALSLOCK,119); END; 


SIF NOT MCORTEX 


/**% MXTRACE ***%* MYTRACE *#%% MYTRACE "HER MXTRACE 0% / 
/*** MYTRACK 8% MXTRACK KE MXTRACE HE MXTRACE % / 


CALL OUTSLINE(@MSG24) $ 


SENDIF 


/* OBTAIN SROSNAME INDEX */ 

PEOTBLSINDEX = LOCATESSEO( SEOSNAME ); 

/* OBTAIN SEQUENCER VALUFR *¥/ 

SEQSVALUFSRET = SEQSTABLE( SEQTBLSINDEX ) .SEQSVALUE; 

/* INCREMFNT SEQUENCER */ 

SFOSTABLE( SFOTBLSINDFX ).SFOSVALUE = 
SFOSTABLE(SFOTBLSINDEX) .SROSVALUE + 1 3 


yom UNLCCK THE CLOBAL LOCK “7 


fEORALS LOC % = A 5 

RETURNS 
END; /* TICKET PROCEDURE */ 
DEBT 27 HARM HK ARE FEE HE EAE EAE EAE HEE CHE ETE BC HEE BE SNE AE HE HE TE DIS AE IS AE PST IE AE 2S FIC IS CITES ESA CT / 
/* CREATESPROC PROCEDURE BREWER 8-18-84 av 
[*%—------—- -— --— - --—- - - - -  / 
/* THIS PROCEFURE CREATES A PROCESS FOR THE USER AS aa, 
/* SPECIFIED RY THE INPUT PARAMETERS CONTAINED IN A x / 
” STRUCTURE IN THE GATE MODULE. TEE PARAMETER PASSED  **/ 

Poe ec iN ihh WHICH POINTS TO THIS STRUCTURE. a 

13 INFO CONTAINED IN THIS STRUCTURE IS: PROCESS ID, a, 


IGS. 


/* PROCESS PRIORITY, THE DESIRMOEBROC STAC Gahogeenene 
/* AND THE PROCESS CODE STAPTING LOCATION WHICH IS 

/* 1S TWO ELEMENTS: Tu") 1? REGISTER (ON NSN TA, vr ahead 
/* CS PEGISTFO (CODE SEGMENT}. 


/* CALLS MAD® TO: OUTLINE 


' 4 to ale ales ale ale ale ade ate ae ahs te ale te ale al ‘ ‘ ty ate ate wees ato als ole ale ele ale algal, . 
[FRAT HERE NE HE EE HE HE AE MENACE THE HS HS YE TH MS HEE BS AE TE AE HE IE IE A AE IE FE HE IE DIE ENE BE DIS SIS BIE BE ME DAE HE IS IE NE IE DIE DI AC IE AE 3 OK 


CREATESPROC: PROCFDURE( PROCSPTR ) REENTRANT PUBLIC; 


DECLARE 
Jen OLOs ee TR, 10) aces 
PROCSTABLE BASED PROCSPTR SHaue TURE 
CereC- i? er 
PROCoe nl Bis, 
ei ONG ES le WORD, 
PROCSSS WORD, 
PROCSIP WORD, 
PROGSCS WORD, 
PROL Sis WORD, 
PROCSES WORD) $ 
DECLARE 
(PSiee ro WORD, 
TEMP BYTES 


DECLARE PROCSST4CKSPTP POINTER AT(@PS1), 
PROCSSTACK BASED PROCSST4CKSPTR STRUCTURE 


(LENGTH ( GFEH) By ite 
RETSTY PE WORD, 
ee WORD, 
DI WiC Dy, 
SE! WORD, 
DS WORD, 
DX WORD, 
CX WORD, 
AX WORD, 
BX WORD, 
¥S WORD, 
ite: WORD, 
CS WORD, 
FL WORD); 


SIE NOE MCORT EX 


J MYTRICE EE MXTRACE 8" MXTRACE SOK MKTRACE *%# / 
/*** MY TRACE #24" MYTRACK TORR MKTRACE HH MXTRACE 5K / 


CALL OUTSLINF(@MSG26) ; 
SENDIF 
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/* 
oat 
PS2 


MOC SSTACK . 


PROCSSTACK 
PROCSSTACK 
PROC SSTACK 
PROCSST4CK 
PROCSSTACK 
PROC SSTACK 


PeOCSSTACK. 


PROCSSTACK 
PROCSSTACY 


PROCSSTACK. 


PROUCSSTACK 
PROCSSTACK 


me S'T GLOBAL 
DO WHILE LOCKSET(@GLOBALSLOCK ,119);3 


He PRDS 


TMP 


END 


vy PM( 
V PM ( 
V PM‘ 
VPM ( 
VPM( 
VPM‘ 
VPM ( 


BROS 
PROS 


NRSVPS({ 


TEMP 
TEMP 
TEMP 
TEMP 
TEMP 
TEMP 
TEMP 


PeveSiD = 


Semel ee ee 


~VPSSPFRSCPU = 
.VPSEND 
PRDS .CPUSNIIMRER 


ios) epee ool KS PTR 7 
ECGs Weiner SSP = 11Sr s 
PROCSPAP GET nhOCSSS; 


RETSTYPER = INTSRETURN; 
.RP = PROCSTARLE.PROCSSP; 
0 =) 005 

.SI = 83 

.DS = PROCSTABLE.PROCSDS; 
ne ale 

nOx. =e 

yes 

2 Sg 

-FS = PROCSTARBLE.PROCSES$ 
IP = PROCSTABLE.PROCSIP; 
ROS = OPROCSTARLE .PROCSCS; 
.FL = 20@H; /*SET IF FLAG 


inci 57 


proces PUN eMARS VPS SC PU 
=TPHVomVPoSeERSOPU + PRNGHPRSSTART 5 
Paces TASK. PrOCSIDMG 

72 eA) et 7 


~OTATE = 415 


(ENABLE INTR)*¥/ 


BNDs 


THEN DO; 


Seo Pl One PROC wna PROS PR I 5 


Zoo 
0; 


~EVCSTHREAD = 
~EVCSAWSVALUF = 
»~SPSREG 


~SSSREG = PROCSTABLE. 


eae + 13 


= PRDS. 


Veco Poche ns. OPUSNUMBER Jos 1; 


/* DO %/ 


PeeSRRLFASR THR GLOBAL LOCK */ 


GLORALSLOCK 
RETURN; 
BNDs [he 


CRA hor OC Vas 


A; 
m7, 


= PROCSTABLE. 


ERCGs oP) — LA, 
PECCSSs5 


PWS 6 VS omer eSIereU eceen de 


JE DBS O28 AE HE HE ERE IE ME AEE HE AEH AE IK HERE THE AE SEE HE AE NC HE HE NE EAE RE OE NE AE IE ESE AKC AR AS HE 2K HE RE DIES AEA IS AK ACE A / 


Ae SYSTEM$IO PROCEDURE BREWER 8-12-84 Hs 
/* PROCESSES A REQUEST FROM THE ADVANCE PROCEDURE (AND /) 
/* OTHERS TO BE DEVELOPED) TO ADVANCE THE VALUE OF AN 7, 
/* WVENTCOUNT THAT HAS A REMOTE COPY. ALTHOUGH THF ne 
/* CURRENT IMPLEMENTATION IS LIMITED TO THE ETHERNET AS */ 
/* THE MEDIUM FOR DISTRIBUTED EVENTCOUNTS, THE PROCEDURE */ 
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Ves 
hs 
[ 


PEPEUNG PION iat tae 

QUEUES UP RFOQUESTS IN SN FTHERNET KEQUEST BLOCK 
(ERB) FOP CONSUMPTION BY THE FTHERNET COMMUNI CATION® 
CONTROLLEF RCARD (ECCB) DFVICE HANDLER. 


CALLS MADE TC: READ 


/% 


ate 
~ 


/* 
/% 
/* 
/* 
/* 
/% 


a 


IS WRITTEN TO ALLOW FOR THE EXTENSION TO OPEER DATA 
COMMUNICATION MEDIA. 


BEAK 2K EAS 2 RSE 


HE PEAK IE SK AC HE ME SE ALT BS A AK AE AS SIS AS Be AS AS TE EI HE AK IK AE NE RC DI AC AE AL HE AE AYE OE DIC DIC NE AK 2s OK AK OE IS AS OE 


AT J 
— 


ATA AA A 
ry er 1) ‘ 


+ 


3 a 
Oa SSS Se 


ADVANCE ‘ 
TICKET > 


STEMSIO: PROCEDURE (PATH ,REQUESTSTYPE,NAME,VALUE,ADDR) 
PURLIC RFENTRANTS 
DECLARE 
(PATH, RSQUFSTSTYPF, NAMB, FRBSINDEX, INDFX) EY Te 
(VALUE. ADDRe. 1 et ) wORD; 
DECLARF 
ERB(ERBSRLOCKSLENGTH) STRUCTURE 
( COMMAND RYT? 
TY PESNAME BYTF, 
NAMESVALUE WORD, 
REMOTFSADDR WORD) AT (190004); 
IF PATH = SNET THEN 
DO 5 


DO CASE REOQUESTSTYPE; 


ne: /* IT’S ETIRERNET AND EVENTCOUNT */ 


CALL TICKET(ERBSWRITESPEQUEST, @I1); 
/* T NOW FAS THE VALUE OF TICKET RETURNED */ 
CAL 2RAD( BeRSWe Teens 
/* J NOW HAS THY VALUE OF ERESWRITE */ 
TO WHILE (J) <eles: 
CALL TIME (1a); 
/* 1 MS DSLAY ==> REDUCF BUS CONTENTION */ 
CALL READ(ERBSWRITE, @J)3 
END: /* DO WHILE */ 
/* WRITE TO FRR, IF IT’S NOT FULL */ 
CALL READ(ERBSRRAD, @J)3 
DO WHILE ( (I-J) >= ERBSBLOCKSLENGTH) ; 
/® I7°S FULL SO DO Ae BUSYRWAIT oe 
CALL TIME (6@);3 
/* DELAY ONF PACKET TRANSMISSION TIME 
QUANTUM */ 
CALL READ(BERSREAD, @J)3 
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END; 


* SLOT OPEN SO WRITE TO ERR */ 
ERBSINDEX = I MOD ERBSBLOCKSLENGTG3 
ERB (ERBSINDFX).COMMAND = REQUESTSTY PE? 
VRE (FRBSINDRX).TYPESNAMF = NAMES3 
FR2 (/ERBSINDEX).NAMESVALUE = VALUE; 
FRR (BRBSINDEX).REMOTESADDR = ADDR; 
/* NEED TO ADVANCE THE VALUE OF ERBSWRITE */ 


DO WEILE LOCKSSFT(@GLOBALSLOCK, 119)3 

/* ASSERT LOCX */ 
END$ 
INDEX = LOCATESEVC(FRBSWRITE); 
EVGSTBRGINDEX ) WVALUF = EVCSTBL(INDEX).VALUE + 1; 
COMA SLOOK = Cy * RELEASE */ 


/* NOTE TRAT THIS AVOIDS THE UNNECESSARY OVER- */ 
/* HEAD OF THE ADVANCE PROCEDURE */ 
END: /* DO BLOCK */ 


DO} /* STUB FOR NOW */ 
END; 


Hien OR BOURSTSTY PF *7 


ENDs foe R Hie 


END; eS OAS 10. / 


J GD QB ME AE EH AE TE EAE ENE ENE BE AE OME HE HE PIE FE MEE IE AE IE BEE NE AE AE AEE BC BIE ANE NE AK OIC OE BE IE 2K Ok BE EE AE SE OK / 
ee DEFIN®SCLUSTER PROCEDURE BREWEH 8-18-&4 */ 
BH ——— + -— -- -— - ~ - — — — — — + a ne tt / 
femerHiS PROCFDUPE IS CALLED GNLY ONE TIME AT EACH CLUSTER.*/ 
foes SOLE PURPOSE IS TO DEFINE THE LOCALSCLUSTER ADDRESS .*/ 
Peet aiS PROCEDURE CALL MUST BE THE FIRST CALL IN THE INIT */ 
meerROCESS BROUGHT UP IN FACH CLUSTER. wy 
/ - aS 7 
[FE REE A Be HE AE HK AP AE HE RE BE 3 HAE HE HE BE AE OE AE AE FE A RENE 1S AC HE HE BIC AE AE IE EE A HE SIS OE IE AE AE OE AAS AE TE IEE AE ACE A aE OE OS / 


DEFINESCLUSTER: PROCEDURE (CLUSTSRSID) REENTRANT PUBLIC; 


DECLARE CLUSTERS ID WORD, 
1 BYTE; 


MoOCHESCLUSENPSADDR = CLUSTERSID; 
/* FOR NOW OTHER ENTITI®S FIRLDS ARE UNINITIALIZED */ 


EVCSTBL(@) .REMOTFSADDR=CLUSTERSIDS 
Poel eG ITP Yi TN FABLE 15 2 PESSRVED SYSTEM EVENTCOUNT */ 
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END: /* DORFINESCLUSTER */ 


LEDGER ARIE HE FB BE DEE A IE BE OIE FE OE BE BE IE NE EE BAS OIE 3S ORE HAE SEE BIC DE DE SAE BE IE BAC AIS AE IS BE 24S AE OK OYE EDK IE AE ACE IE EE Oe / 
/* DISTRIBUTIONSMAP PROCEDURE BREWER 8-18-84 Mf 
/* THIS PROCEDURE ASSIGNS GROUP ADDRESSES TO THE a7 
/* REMOTESADDR FIELD OF THE DISTRIBUTED ENTITY. THIS IS # */ 
/* SYSTEM MANAGEMENT DECISION - THE USER (ALTHOUGH SYSTEM )*/ 
/* PROCESSES DO NOT MAKE CALLS TO THIS PROCEDURES. o7/ 
/* an / 


[PE FRA AE IRAE FE BE FE BE OE EAE AE AE IE AE AS AE EAT REE RE AC ENE OE BE OS IE OYE AE ENS FYE HE IE NE FE AE EE EE AE EFS AE DICE BE BS OK HE HE ACI / 
DISTRIBUTIONSMAP: PROCEDURE (MAPSPTR) REENTRANT PUBLIC; 


DECLARE 
MAPS PIR PORNT ake 
TBLSINDEX BYTE, 
MAPSTARL® BASED MAPSPTR STRUCTURE 


Cie Slee BYTE, 
ID Boe ei, 
CLUSTFRSADDR WORD); 


DO CASE MAPSTABLE.MAPSTYPE; 
DOs /* EVENTCOUNT TYPE */ 
TBLSINDEX = LOCATESEVC (MAPSTARBLE.ID); 
EVCSTEL‘TRLSINDEX) .RFMOTFSADDR=MAPSTABLE.CLUSTERSADDR; 
END; 
DO. 
/* STUB */ 
END3 
END: /*®* DO CASK */ 


END; 7* DISTR BUT NON heen, 


SIF SNOT MCORTES 


/* CONDITIONAL COMPILATION OF PROCEDURES 
ASSOCIATED WITH Bote MM ee Raton bres cas co. 


/* 8% MYPRACE #28" MXTRACKE 2% MKTRACE 88% MKPRACE 2% / 


LE BQ OG HM AK HE SEAL IE CHC HE HE AS DK IK AS HERE HE HE ACE HE DES DK BIS HE HE HS DES YS BIE AS DS BE AC OK AS AE BE DIS NE OS EE OS IE IK HE RS BEE / 


Foo: INSCFAR ae BREW: -1&-&4 ey 
/* sme ech sew me ee een es ee cee cs ls ee a ee 2 / 
Hs CRIES Sie BU e PROM THES Pita PORTS CHAK LSet NOs! a7, 


/* ECHOED. THAT IS RESPONSIBILTY OF SUSBR TNS rao Be // 
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moe PuUT TO SSPIAT PORT VIA SBCBEL DOWN LOAD PROGRAM MAY */ 
BeoeNOT BE ACCEPTED. ref 
Meee OINTER JS PPOVIDED RY USER SO HE CAN BE RETUKNED THE Q 
/* CHARACTER . * / 
VA ee ee ee a a a a ee ee a ee ee ee ee *« / 
/* CALLS MADE TO: RECVSCAHR ae 


[FE HERE AE AE AE HE HS AE BE RE TE IE AE AE BE IK OE AE HEME HEE HE AC AIK IE AE TE IK AE OK AER ASE FE AE BE NE AE HE AE BIS IEE BE AS AE AK 2 SOR AC AE AE AR AS / 


MienAR: PROCEDURE ( RETSPTR ) REENTRANT PUBLIC; 


DECLARE 
RETSPTR POINTER, 
INCHR BASED RETSPTR BYTES 


DISARLEs 

INCAR = RECVSCHAR; 

ENABLES 

RETURNS; 

END; /* INSCHAR */ 

J¥LB1L 7 RR a AENSEIR Ser er cepenns oo bsirds? boa ae hndh S16 « Geieghin cia fabied nities 4 snd do adinnd Handy pian rab ihap «ap he SOE CARAS BTS AE AE IEE / 
/* INSNUM PROCEDURE BREWER ez 1p- 84 ts 
/%* (a ere a i ER a ee a a a 36 
PeeeGETS TWO ASCII CHAR FROM THE SERIAL PORT, EXAMINES yA 


/* THEM TO SWE IF THEY APE IN THE SET O..F HEX AND FORMS */ 
/* A BYTE VALUE. EACH VALID HEX DIGIT IS ECHOFD TO THE */ 
/* CRT. IMPROPER CHAR ARE IGNORED. NO ALLOWANCES ARE */ 
/* MADE FOR WHONG DIGITS. GET IT PIGHT THE FIRST TIME. */ 
/* IF YOU ARE INDIRECTLY ACCESSING THE SERIAL PORT VIA ¥*/ 


/* THE SRCS861 DOWN LOAD PROGRAM FROM THE MDS SYSTEM 7) 
f* INPUT MAY NOT BE ACCEPTED. A POINTER IS PASSED BY THE*/ 
/* USER SO THAT HE RETURNED THE CHARACTER. 7 
[Rm —-—-— - — - — - - - - - - - - ~ eee / 
fe CALLS MADE TO: INSHEX a7 
[Raa MS MEME MK HES AL HE SS EH AE IE SIL HE IK OK Oe AE A BS OS IL BE IS TIS TIS YE BE NE TIS IS BE OIE NE IE BE MIE FS OE TK EE AS BE OAS NS IK SITS BIS OAS AE OIE 2S oy 


INSNUM: PROCEDURF ( RETSPTR ) REENTRANT PUBLIC; 
DECLARE 
RETSPTR POINTER, 
NUM BASED RETSPTR BYTE; 


DISARLE3 
NUM = INSHEX; 
ENABL®; 
RETURNS 

END; /* INSNUM */ 


LEY 4 5 EME AENE HEHE AE He BE IE AE HE IEEE AE ENE FE AE MEIC AE ASAE AE DAE AAS INE IE AC AC EAE FE AICS AE AC ao 
PE FEF HE BE AC AE HE IE AE HCE HEF, ec oe sca ee a BEE AE AC AC AE AAC FE / 
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ioe OURS CHAR PROCEDURE BREWEr S-1esee4 oy 
/% was we ee ee ee ee es a ee ee eS Se EE eee ae 
/* SENDS A RYTE TO "PHY SERTAL See a 
Sw a ee ee ee ee ee y; 
J CLL MED. er SENDSCRAR a) 
[28 EE AE OK AE HE DOSS AS SS AE AE ONS OK OS AE SE NE OS OS EE EE SIS EE Oe ERS RE HE HE BIE AE TES AE AS BE EOE IE DS I AR NS AE ESAS at a 2ys ose oy ape cia 


OUTSCHAR: PROCEDU®E( CHAR ) REENTRANT PUBLIC; 


DFCLARE CHAR RYTE; 
DISABLE$ 
CALL SENDS CHAR ( SCinii a 
ENABLES 
RETURNS 

ENDs 


L1G EAA AE REE A AE AE AE OE OEE ENE BEAK 31 EAS AS IS TS MS AE AS TS HS AT AT BIS AS HE AE AS IE AS IS KK 34S AE AE EAE ASIC AK AC AS SE / 


/*  QUTSLINE PROCEDURE BREWER 8-18-84 %/ 


/* USING A POINTER TO A BUFFER IT WILL OUTPUT AN ENTIRe a 
/* LINE THRU THE SFRIAL POPT UNTIL AN “°%% IS ENCOUNTERED “*/ 
/* OR &@ CHARACTERS IS REACHED--WHICH EVER IS FIRST. CR/’S*/ 


/* AND LF°S CAN BE INCLUDED. aay 
nnnnnMnan (olneminen iC nmre Ye. */ 
/* CALLS MADE TO: SENDSCHAR coy! 


[PEREIRA BEM ONE NET AEN NOE ME RE RT A OE aE SEE AR a OIE SOI IC OIE GE a SCARE NE SIE EE aK a aK a a / 
OUTSLINE: PROCEDURE( LINESPTR ) REENTRANT PUBLIC; 


DECLARE 
EINE SPTR © PGi ie 
LINE BASED LINESPTR (80) BYTE, 
II BYTE; 


DISARLE$ 

KG) yl Bi INO eS) 
IF LINEC LT) j= 7% Slee GO ere i. 
CALL SENDSCHAR( LINE( II ) ); 

FND3 
DONE: ENABLE; 
R STURN; 

END; 


LEV AQG2 HR ER NE HE Me RE OS dC ae HC OK oe KE ale Te aC ae ote Me afe aie Me ake ae se ste ate sis she ale ste ae ae ate Sie a ais ONC akc ate ats oe ols oie sic ae ale ate s eae / 


f= Outs NUM PROCEDURE BREWER Q-1E-84 */ 
[* we es ewe ee ee eee ee i ee ee ee eee ae / 
/* *GOUL PUTS ates Le VAULE NUMBER THRU THE SERIAL PORT sor 4 
j¥ ce a ee a ne ee ee aS jf 
/* CALLS MADE TO: OUTSHEX ey: 
[> SOT Fe OS tHE OS Oe 9c Sie ae ore sle st ates te sie ote ho Gears ate oe eee 2 eo ea HERE AEE HEHE AE BC 2 AE DIE TE ES OIE BST EEE AE OIE I AS / 
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Uae Sea e een Ur eee ENTRANT PUBLIC: 


DECLARE NUM RYTE; 


DISABLE: 
CATO MOUMESH EM NUM ) 3 
ENABLES 
RETURN, 
END; 
j* L111 aa: BAC HE IE BE HE IS HE IE AE AK IS AE AE AE HC IS YE IE HE HS BIE SIE YS INS OE AS OK DIS AIS OIE OR BIS OS OE 34S ce ences hence oe / 
|g sun PEO Gout Batwihe -e=le—24 a 
{* a oS eS SS eee ee ane ae / 
/* GETS FOUR ASCII FROM SFRIAL PORT TO FORM WORD VALUE. ay 
/* CRITSKIA ARE THE SAME AS IN PROCEDURE INSNUM. ** / 
oe eS ee ee me ee 
mee CALLS ale TOs INSHE XK ely 
/%* SESS HE IE BE BS NE HS BIE YE FS SI BIS AE NS AC OS YS RE AS NE IE RE HE EAE IE DIC TE IE DE YE IE AK BE BS CC BE AS AEE OS NE YS AS YS YS OS OE TS KS rs ys 
INSDNUM: PROCEDURE ( RETSPTR ) KEENTRANT PUBLIC; 
DECLARE 
PTS PIR COLNTa, 
DNUM BASED R2ETSPTR WORD, 
cia av OR Ds 
DISABLE; 
Hee INSERX; 
He oH HB): 
Cy = INSHER: 
DNUM = (H OR L)s$ 
ENARLES 
RETURN; 
END; 
LEY LB RA AE ERE ie SH SES SE OE SS SIC ME HE SE NS Sie HS Sie SS HE MC SHE SHS OS Sie 3 NE 35 OE BS SD eteucia ie ies ria ace pence eer 2K KARAS / 
pe NUM PROCEDURE REWER 3- Pie i 
ee ees SHR SEES ee eS SS a pa ee ee ee eee ee a ee a 
Po OUTPUTS A WORD VG WOM BE evAs THE SE 2LAL PORE ef 
[em -- ee ee  ? oy 
/% es MADS Wee ee aE 
J eA Re Bel Sue ee eI) bg rs ks rake es SL pg edie de ah gid Hosea Wa Reda eo re) oa ec eer oie ce tee ee ome Se oS tie ore SS Sk 3S 21s Ve 


OUTSDNUM: PROCFDURE( DNUM ) EKEENTPANT PUBLIC; 
DECLARE 


DNUM WORD, 
SEND BYTE; 
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DISABLE? 

SFND = HIGH( DNUM ); 
CALL OUTSHEX( SEND )3 
SEND = LOW( DNUM )3 
CALL OUTSHwy © Siiom. 
ENARLE3 

RETURN; 

END; 


PELL 6 LE ERE ES FE FE IE OE OEE eae Cab odie Ho oat ib ond pe 8 fale Se she hs sho ott sic aie shea a ic sree sicis c Sie oir src pe cae ee 


y 

/* RECVSCHAR PROCEDUFE REEWEP Se Ss B4 eT 
ale i 

/ 

/ 


/* BOTTEM LEVFL PROCEDUR® THAT ORTAINS A CHAR FROM THE * 
* SERIAL PORT. PARITY BIT IS REMCVED. CHAR IS !INCGi Ieee 
[kgs 0 SVG) xe 
/[* SS ee Wy, 
/* CALLS MALE TO: NONE x / 


[FE ERE AS BE AE AE AE AE AE EAS FE RENE HEE AE AS AE HE EAE AE BE AE NE AE AE AEE ENE BE NE BE AE BE AED Hae AE AC BUC ME OE BF OE EOE BE 2 IEE OP / 


Jee MYTRACE SF MXYTRACE Mk MXTRACE 8% MXTRACE 2408 / 
J MXTRACE AO MKTRACK RAK MXTRACE OK MXTRACE 2% / 


RECVSCHAR: PROCEDURE BYTF RE®NTRANT PUBLIC; 


DECLATE 
CHe BYTE; 


/* CHFCK PORT STATUS RIT 2 FOR RECSIVE-RSADY SIGNAL */ 
DO WHILE (INPUT(QADAH) AND @2H) = G3 END 
CH> = (INPUT(@D8H) AND @7FH)3 
RETURN CHR; 
UND; 


s%e ve se ale abs de wle als aly ols ate ale ole als als ste al, Hy, se Je 4 whe ats aby ats ale Pa s'¢ whe ale Pe ates ale te abe als abe ats ale ale ale ole ato ats ate ats ole ale ales abe ale ate ats ale 
7% Ca) ’ * o,~ Cd tal Cd taal tol od tad cd ted o> + > ayn og* oa) #a* o,\* * Cd tes *; *\ Cd ie age oy > oy™ 7, fd Cd he * : ~~ a> 4 ay a> *,* Cd ad Cd) ay> o> Sd tl “e dt bed og™ oy" > Cd lied Di Cd he ~\ o\* oer Or 


(SEN DC Hele PFOCEDURF BREWER ee a 
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b 
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l 
| 
l 
| 
| 
1 
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i 
i 
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| 
l 
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l 
I 
t 
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/* OUTPUTS -& BYTE THRU THM St tee ae 1s NOT a 
/* SERVICE AVATLARLE THRU THY GATEKEEPER PUT IT IS CAL 


= 
fy 3 sc 
SS ee 


/* BY MANY OF THOSE PROCEDURES. IT WILL STCP SENDING : 
/* (AND EVECYTPING ELSE) IF If SENS & S AT INPUT. © * 
/* WILL RELFASF TH® PROCEDURE TO CONTINUE. * 
/* THE USER REWARSI!t!! THIS IS ONLY A DIAGNOSTIC TOOL * 
/* TO FRESZF THF CRT FOR STUDY. RELEASING IT DORSN‘T x 


/* ASSURE NORMAL RESUMPTION OF SXECULTION. (YOU MAY FORCES? 
/* ALL BOAFDS TO IDLE FOR FXAMPLE.) 


/* CALLS Mee ie ey 


vA SiS SBS 2yS Bye BL NS BK Bek HE Bs TS ste ste abe she sfc siz oie ste ste sie ste of; ate te ote sie Sie sie ee sie ee whe aie Se hc screens 310 3, ope sine so 3,5 Sisk 2 cee Vi 
SENDSCHAR: PROCEDURE(CH4SE) REENTRANT PUBLIC: 
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PCr Cnr nh INCHR)  BYI ss 


VC GheeOr oO 4 Pi Seay 


INCHE = (INPUT(@D8H) 48ND A7FH); 
IF INCHR = 13H THEN 
DO WHILE (INCHR <> 118); 
IF ((INPUT(@DAF) AND @2H) <> 7) THEN 
INCGR = (INPUT(@DEH) AND JB7PH); 
END} 
DO wwHILE CINPUT( CDAH) AND @1H) = 2; ys 
OUTPUT(@DS8H) = CHAR; 
RETURNS; 
END; 
[ 7121 R%*%* SHE SE HE ETE BE IE BYE SS NE SIS HK YE IE AS IS AS IK OK AS HE HE AE DYE ANS OK BK YE AT NS IE AE AE IK NE NE YS 3,5 916 NS FCS STASIS AS 
* INSHBX PROCEDURE BREWEK pe 18-84 */ 
[%-------- — --— -- - - -- — -- - -- - - - + ek / 
/* GETS 2 HEX CHAR FROM THE SERIAL PORT AND IGNORES ANY- */ 


feet ING ELSS. SEACH VALID HEX DIGIT IS ECHOED TO THE 7 
Peeeeor kl AL POST. A BYTE VALUE IS FORMED FROM THE TWO HEY */ 
foe, CHAR. bas 
[Be -— nee ee nr nr er eee —- ~~ eH ee He / 
J GALLS MADE TO: RFCVSCHAP a / 
Vi (SE STG EN ESO eS SE et AE SR ary aed addin ap ¢ Up SG mea Yah dei aae do Ey free kbd Hdd Pape Tae deh Goede ae Pak Ge EE SED Ie Se op A NAB SX y 
INSHEX PROCEDURE BYTE REENTRANT PUBLIC; 
DFECLARF 
ASCII(*) BYTE DATA ( “O123456789ABCDEF ’), 
Prctib very rh DAPA( 71234560789 610,624 .66H.641,65H , 
eleval)! 
Schr ew HEMNUM, H, lL)  BYTm, 
FOUND egy, 
5) ehe BYTE; 
enor PRE OF PYPR = / 
FOUND = @; 
DO WHILE NOT FOUND; 
fo aA eo h eo LUNPUT. COUR BACK HERE */ 
INCHR = RFCVSCHAFs 
H = @; 
STOP = @;3 
PomcOMPARR GHAR PO HEX CHAR SET ~*/ 
DO WHILE NOT STOP; 
IF (INCHR=ASCII(H)) OR (INCH = ASCIIL(H)) THEN 
STOP = VFFH; 
FOUND = OFTHE; 
Cum DC hAn INGER jw, FO BCHO IT */ 
END; 
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LO; 


hLse er 
ie i ee 
IF H = 10H THEN STOP = @¥FH; 
ENDS 9 7 ibs Foe 
END: /* DO WHILF */ 
Y = SHL( H, 4 )3 
END; /“* DO WHILF */ 
FOUND = @;3 
DO WHILE NOT FOUND; 
INCHR = RFCVSCHAR; 
L = @H3 
STOP = @; 
DO WHILE NOT STOP; 
IF ‘INCHR=ASCII(L)} O8 (INCHK=ASCIIL‘L)) THe 
STOP = OFFEH; 
FOUND = OFFH; 
CALL SENDSCHAR( INCHR) 3 


ENDS; 
FLSE DOs 
iy ee 


IF L = 1@H THEN STOP = @FFH; 
ENDS) uo ee 
END; /* DO WHILE */ 
END; /* DO WHILE */ 
RETURN (4 OR L)3 
END3 /* INSHEX */ 


PET 2 BOA RR EAE AE ACE 2 ETE ASE SEAS AE SE REE NE 2s A ee ae SAR ent ae ea She ho iene mre he he are one ae aha ore ee Pas ore pcr 


fee OUTSHEX PROCEDURE BREWER @-168-84 */ 
[wm Ham ee HH x / 
/* TRANSLATES BYTE VALUES TO ASCII CHARACTERS AND OUTPUTS*/ 
/* THEM THRU THF SERIAL PORT a 
/* anes ace ee ee ce al es es ee ee x / 
/* CALLS MADE TC: SENDSCHAR x / 


J HE HEHE BEE AE HET AE BC AEA BE HE HE CRE AE A IE HEIR AE HE DEI AE FE MC BK ACHE RE IE HE NC OI IE OIE CHS A DE BIC DIC I AEE RIE 2 OE A BNE BES KS / 
CUTSHEX: PROCEDURF(B) REENTRANT PUBLIC; 


DFCLARE B BYTE: | 
DFCLARE ASCII(*) BYTE DATA (°9123456789ABCDEF’); 


CALL SENDSCHAR(ASCII(SHR(B,4) AND OFH))3 
CALL SFNDSCHAR(ASCII(B AND OFH))3 
RETURN} 

END; 


/* END CONDITIONAL COMPILATION OF PROCEDURES NEEDED FOR 
MXTRACE 


Lor 


SENDIF 


2 x < x 3s ate als x 3c ale ate ete ate ale aly ale ate ale ale ote si¢ 7 te ate ae she als ale gle a's Pl 4 a‘e cm a! Di wae sta ate abe ale wie als ate ee ate We ste ste ale sc ate ats a3 
an AS Aho tat < PAS Sp Pala Pia py) hg ad had Cf pt pol 4 Ca has Ra Cd ag Cag) Ca pg ~ 78 ue Mt MS Oem Me™ MT MU ha Cp eo Ca pat fy po) cot pa ota pO 


END; /* L2SsmModuLE */ 
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AP PE i 
LFVFL I MCORTEX SOURCE CODE 

The LEVEL [I source code, written in PL/M-86, is contained 
in file LFVKRL1.SRC. The SUBMIT utility [Ref. 19) is Weare 
compile either MCORTEX or MXTRACE versions of KOPF. The 
MCORTEX version of LEVEL I is compiled by usin2 the  SUdrae 
file LiCMPM.CSD. LEVEL 1 15 One of the rélocatabl aie 
modules shown in the SUBMIT file LNKAM.CSD in Append ee 
The SUBMIT file LOCKM.CSD 1s used to locate the |) Vane 
modules to file KORE. After transfer to the multi-user 
CP/M-86 system, the code is saved as KORE.OPS ‘as descrites 
in Appendix |). Analogous files are provided to generate 
KORE.TRC. The memory maps created by the linxer and locator 


are included at the end of this appendix. 


U ' U y t, ‘ * U * ‘ 4, le ‘ le ‘ee . eo ode Fa a ale 
ne Bi 356 AE I EB a BC BIC AE EONS OAC BK AR OK ae a SIC HE HEME IE Re CC ae ak af Ea a ake ak afc ae ake aM aig ak ae ak BCH aie a a aK aE ICS fe 9S aC ae kc 


als abs ato ale ate 3% ale ale she ale ale whe abe abs ale ale abe ale ale ale ale ato alkb ale ale ale ale ate alk al ale aly ale aly ale ale ate ate ale abo ale ole ate ale ole ale ale ale a) als alon's ale ale 3'z aly ale hh als alo 
*;~ ad toa Cd ad ~~ 7\~ *~ Ld be Cd bd 7, “> Sad bad Sd Yad 7y> #a" Cd bed idl bel died 3s ,* Cd teal cd hl 7" Cd ted +> oy om Oy> Og™ 4% Oye *~ 4" Ca Cd tel cH oo a“ “~~? oy bd te ~~ o™ “~* ot be o> o* “= ca ted as dt bed y" “~* a Pe 4 ~* [ I > cd Ted 
tn ale ate rd id 
ao Preorerecon oURM Tera le penn 
1 e — 
4, ¢, t i} 2 4 C] U ¢. 3, 8 ty tT ] 1 i] ‘ ] t) Ge we! t] t, .8 4. 8 ] ) §. ate of te ales 8 ] i 
BME EAE HE BE SAE AE HE NS AS IE NSE AS EE SE AS SE DS HENS AS AL DEAE AE OS OK SHC AS YS AE NS AS AE IS KE SIE OS YS TIE TIE IS BYE IS BIS BS SIE IS SIS TS AS BIS BIS BIS BE OS 
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BEC ASK IE AK AACE OCI BC HE aE EH OE BE SI BIC ICRI SE EDIE ME A BIER REE SIE BI OK RE AE aE OIE DIC OI AE DIE OY SCRE CAE OIC RIE DISA AE A ICE ah 2 
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meer oMS6 2F1l:LEVELI.SRC FESET(MCORTEX) NOCOND LETIMAFGIN(7) 
LARGE 
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-F1:LOC86 :F1:KORE.LNK ADDRESSFS‘SEGMENTS(& 
STACK (005549) ,& 

INITMOD CODF(@439¢H),& 

GLOBALMODULE DATA(@F53@0H) ))& 
SEGSIZE(STACK (75H) )& 

RESERVE(@R TO ARGFFH) 
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INITMOD CODE(@439@H),& 

GLCBALMODULE DATA(@E530@H) ))& 

SEGSIZF(STACK (75H) )& 

RESERVE(@H TO OARFFH) 
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/* FILE: LEVER ide me 

VFPSION: BRFWER 8-18-84 

PROC EDURES 

DEFINED:  R&TSVP RDYTHISVP 
GETWORK LOC ATESEVC 
LOCATFSS50 IDLESPROC 
SAVESCONTEXT GFTSSP 
MONITORSPROC 


REMARKS: 

(1) WARNING: SEVPRAL OF THE LITERAL DECLARATIONS BELOW 
HAVE A SIMILAR MEANING IN OTHER MODULES. THAT MEAN- 
ING IS COMMUNICATEN ACPOSS MODULES BOUNDARIES. Bs 
CARFFUL WHEN CHANGING THEM. 


(2) CONDITIONAL COMPILATION PACIDG@RI Gs ARE Ustimie 
PRODUCE TWO OS VERSIONS. ‘MCOETFX PROVIDES NO 
DIAZSNOSTIC ASSISTANCE, WHEREAS “MXTRACE PROVIDRS 
DISPLAY MFSSAGES ANNOUNCING THE FNTRY INTC VARIOUS 
OS PRIMITIVES. 
ce 
[AE PERE BE 26 BE IG RE BE OE AE BS BE AE OEE IE OK OK 2 SE HS ERAGE SER SNCS BI NERC AEA ENE SA ae REE ESCA NSE aE / 


LISMODULE: M0; 
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JE BG B66 28 HE AE BS BEE EE BEE FE INE EC PE BCE EAE BC IE TAS BE IE HE 24k IE HEE FI OK IAS HEE IE 2S FI AE IS AE AS PIE EA AS AE OE > Stee 


[J MEER RE HE HE HERE HE HE AE HE AEA NE NE NE HE IE HE HE ACHE HE YC 9K IKE AYE HE HE ME AE AE ATC HE B4C NE NE DIS AE AE AEE HERE RC AT I: AC AL IC NERCAE NACHE AE / 


/* LOCAL DECLARATIONS oy, 


DECLARF 
MAXSCPU LITERALLY eee 
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MAXSVPSSCPU i RA Tent “17 
MAXSCPUSSSMAXSVPSSCPU ues [er "190", 
FALSF lene Reais: A, 
READY iene LY oo 
RUNNING Pe RA LEY ora 
WAITING Tel MURA EA re, 
TRUE LITER Soy olabouse 
NOTS FOUND it TER y 55 eo 
PORTSC2 LITERALLY ‘@@csH’, 
PORTSC2 DiirABiy,)  OCC2H’. 
PORTSCE LITERALLY ‘’OACEH’, 
PORTSCA iLeciiye OCCAH ~, 
RESET WETERALLY co. 
INTSRETURN LITERALLY dsedel 


poet MCORTEX 


[eK MCORTEXK cH MCORT RY MANA MCORTRX KK MCORP RX 2H: / 
eee MCOPTEX 3X MCORTEX *eex* MCORTEX * MCORTEX *8h% / 
IDLESSTACKSSEG Lice eViC SDH , OR a 
IDLFSSTACKSARS UTR meme CONWH 5. | /ece acess % / 
INITSSTACKSS EG Cue Stine OCOSH , isaac 7) 
INITSSTACKSARS Een ine OC ODGH 5 | Meet ase ss / 
Bee CORTEX **** MCORTEX “AEX MCOHTEX SEX MCORTEX ae / 
- MOORTEX **e" MCORTEN =**% MCORTEX 4% MCORTEY ctr / 


BLS F 


[ERE MXTRACK HK MXYTRACKR ROKR MXTRACE Ke MK TRACE 67% / 
few MXYTRACK HA MXYTRACKH *K MXYTRACKE RRA MXTRACE AE / 
IDLFSSTACKSSEG Linco OSH - 
IDLESSTACKS!ARS Liter neewe OCGLCH . 
INITSSTACKSSFEG LITFRALLY ‘’@C6BH’, 
INITSSTACKSARBS LITERALLY ’@C6RVH’, 
MONITORSSTACKSSEG LITER Mee OCVSH 
MONITORSSTACKSARS Li TERA a O67 OOH; 
eM TRA he MX TRACGH Ft MK TRACK 3s MXTRAC Hh A / 
eee cee on Og Weer T RACH ars MRT ACH RRA / 


SENDIF 


SDP BEM FE EE AE BEE BE HE NE HE AE AE DIE BE IIE EDT BE AS SIE ME BE AE DIE NE BIE IIE IE AE ANE AE BE DAE AE AE OE PAE IE IC ANE CIC AE AEE EE AE SIE FE AE / 
/* PROCKESSCR DATA SEGMENT TARLE ay 
ress INFORM! TION RFLEVANT TO THE PARTICULAR PHYSICAL x / 
/* PROCESSOR ON WHICY IT IS RESIDENT. a / 
7 3c oe / 
ye CPUSNUMBEP: UNIQUE SFOQUFNTIAL NUMBER ASSIGNED TC */ 
ee THIS REAL PFOCESSOR. ry 
(ae VPSSTART: VPM INDEX OF THE FIRST VIRTUAL at / 
/* PROCESS ASSIGNED TO THIS REAL CPU. 7 
US VPSEND: INDEX IN VPM OF LAST VIRTUAL... 7, 
[3s YPSSPERSCOU: THE NUMBER OF VP ASSIGNED TO THIS ay / 
/%8 REAL CPU. M4xX IS 1@. x / 
/* LASTSRUN: VPM INDFX OF THS PROCESS MOST a5 / 
/%* RFCENTLY SWITCHED FROM RUNNING TO x: / 
Es FITHPR READY OR WAITING. x / 
gs COUNTER : AN ARRITQASY MEASURE OF PERFORMANCE. */ 
ES COUNT MADF WHILE IN IDLE STATE. x / 
DECLARF PRDS STRUCTUR® 
(CPUSNUMRER BYTF, 
VPSSTART BYTS, 
VPSEND BYTE, 
VPSSPFFSCPU BYTF, 
LASTSRUN Pye. 
COUNTER WORD) PUBLIC INITIAL(®,8,7,0,8,08)3 
SED 1 RAE AE EE HE FE NE OE ERE A AE ENE THE AOE RE SE OE DIE BO HEHE I 3K SEES ACAI NE IS BBE BS IE KD HAE BC ETE BK MEO Bh / 
/* GLOBAL DATA BASE PECLARATIONS aa / 
os DECLARED PUBLIC IN FILE “CLO Beech Gan 7. 
/* IN MODULE ’GLOBALSMODULE” ** / 
DECLAFE VPM( MAXSCPUSSSSMAXSVPSSCPU ) STRUCTURF 
(VPSID BYTF, 
STATE BYTS, 
VPSPPTORITY RY ioe 
EVCSTHRFAD RYTF, 
EVCSAWSVALUR WOPD, 
SPSPEQ WORD, 
SSSR EG WORD) EXTERNAL: 
D'UCLA?E 
Geet Naa BYTF FXTEPNAL, 
HDWSINTSFLAG( MAXSCPU ) BYIF FXTERNAL, 
NR3S5VPS( MAXSCPU ) BYTE EXTERNAL, 
NRSRPS BYTE EXTERNAL, 
GLOBALSLOCK BYTE FXTERNAL? 


DECLAPE 
ae eee ole RNA L 
Pico DE toes ih UC TU er 


(RVCSNAMF OCA 

VALUE WORD, 

R¥MOTESADDR WORT), 

TREE AD BYTE) EXTERNAL: 
DECLARE 


SFOUENCERS BYTE FXTERNAL, 
SEesT¢REeeiee) STRUCTURE 
(SFOSNAME RT 
SFOSVALUE WORD) EXTERNAL? 


[EQ Y GB BEA HE HEHE BE BE AE RE IE NE HERE EAE HE BE EE BE ETE BR ME EOE IE IE COE RE BIS AS aS BK SIE BITE OP OK ACTS CSE AE AE IE AC AS / 
/* DECLARATION CF FKTERNAL PROCELURE REFERENCES 4 / 
a THE FILE AND MODULE WHEFE THEY ARE DEFINED ARE as / 
ne oe De x / 


INITIALSPROC: PROCEDURE EXTERNAL$ END; 
/* IN FILE: STK S aC */ 
/® IN MODULE: INITSMOD a7, 


AWATT: PROCEDURE {FVCSID,AWAITEDSVALUE) EXTERNAL: 
DECLA°E FVCSID BYTE, AWAITEDSVALUE WORD; 


END; 
VPSCHEDULER: PROCEDURE EXTERNAL: END; 
fe ION) POLO SO ho ee 
DECLARE INTVEC LAP¥L FXTFRNAL; 
[| I SICH RD hoi 2, 
DECLARE INTRSVECTOR POINTE: AT(@11GH) INITLAL( GINTYVSC); 
/* IN FILE: SG fh OG So 
PED LT LEE AE AEE AE I ME ETE De HE NE BE HE AE EAE HE DE AE BE DE HE DE He BE AE DIE AE IE EAC ESE HS IEE AE TE AE SE IN AE OK 9 OE AS SIS / 
Meee THES™ DIAGNOSTIC MESSAGYS MAY EVENTUALLY BE REMOVFD. “*/ 
/* THE UTILITY PROCEDURES, BOWERVER, ARE ALSO USED BY THE */ 
/* MONITOR PFOCESS. THFY SHOULD NOT BE AEMOVED. x / 


SIF NOT MCORTEX 


JERE MXTRACE MK MXTRACK "KR MXTRACKE MOO" MKTRACE S*#% / 
JERK MXTRACK #5 MYTRACR 8K MKTRACE 2% MX TRACK 30K / 


1 ng 


DECLARE 


MSG1(*) RYTF INITIAL (’°FNTERING RETSVP om 16,4"), 
MSG1A(*) FYP® INITIAL (7 RUNNINGSVPSINDEX inal ae 
MSG4(*) BYTE INITIAL ( WARING PDYTHIS VP iol 
MSG4A(*) PYTR INITIAL (7 SE. VP TO READY: yo = ye 
MSG7(*) BYTE INTGAL ( “SN TReNG GhIWORK Gesu > oe 
MSG7A(*) BYTE TN eis SFT VP TO FUNNING: VP = 2am 
MSG7B(*) FYTF INITIAL (7 SHLICTShDSDER = ye ome 
MSG1@(*) BYTE INITIAL ( SNUTPRING IDLRSVP fiomno 2oo 
MSGi1(*) BYTE ON UPDATE IDLE COUNT ” ee, oe) 
MSG12(*) PYTF INITIAL (’°@NTERING KERN USINT ,10,1355 
MSG20(*) BYTR INITIAL (’°HNTRRING LOCATESEFVC °,12,13, °%” 
MSG22(*) FYTP INITIAL ( “ENTRERING LOGCATESS#®O "(i io seea 
MSG23(*) BYTE INITIAL ( Omi mG, toe rie 
MSG24(*) BYTF INITIAL (7% NOT POUND’ OS, een 
DECLARF 


CR LITERALLY “9DH’ 
LF LITFRALLY “@4H’; 


OUTSCHAR: PROCFDURE’ CHAR ) SXTERNAL; 
DECLARE CHAR RYTR} 
END} 


OUTSLINE: PROCFDURE( LINESPTR ) ®XTERNAL; 
DECLARE LINESPTR POINTERS 
END; 


OUTSNUM: PROCEDURE( NUM ) FXTPRNAL; 
DECLARE NUM BYTE; 
END; 


OUTSDNUM: PROCFDURE( DNUM ) EXTERNAL; 
DECLARE DNUM WORD: 


END; 


OUTSHEX: PROCEDURF(E) ®XTTRNAL: 
DECLARE B ®8YTF; 
ENDS; 


INSCHAR: PROCENURS ( RETSPTR ) EXTERNAL; 
DECLAR¥SPETSPTS POINTERS 
END; 


INSDNUM: PROCEDURE (RETSPTR) SXTERNAL; 
DECLARE RETSPTR POINTERS 

END; 

INSNUM: PROCFDURE (PETSPTR) EXTERNAL: 
DECLARE RETSPTR POINTER; 

END3 
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we ale als ale 


foe 6 MXTCACE 


SENDIF 


LG 2S Byr8 FEE AE AE BE eS HE TIE PE AE NS NE SEE HE EE THE EE HE ANE BEE NE OE EAS SES OE AE IE A IE DE EE FEE AS 


fees ACK DATA & INITIALIAZTION FOR SYSTEM PROCESSES 


DECLAR® IDLESSTACK 


(LENGTH( @3¢H8) 

RETSTYPE 

BP 

DI 

ol 

0S 

DX 

CX 

AX 

BX 

ES 

START 

FL 

RAGS | 

DAO,0,. 0,0 ,0 507,07 
NP ln Og aie 2) a 
ONE SR ORIN cht ge, 


A 


DECLARE INITSSTAC 
(LFNGTH(@3¢@H) 
RETSTYPE 
BP 


SIF NOT MCORTEX 


PL AG F 


L 
4 
4 


aie NE ESE RE MX¥TRACH cK MY TRACE HAE TK / 


ta we “¢ ale 
7. od td *, a> 


/ 
*/ 


AS AL 24S 3k HE 
Ps 


SEBO ss 
WORD, 
WORD, 
WORD, 
WOFPD, 
WORD, 
WOED, 
WORD, 
WORD, 
WOPD, 
WORD, 
WORD, 
POM wheel y CS 7 
WORD) ATCIDLESSTACKSABS) 


( 
3, 
K STRUCTURE 

WORT, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WOPD, 

WORD, 
POUNGEn ss le aco %/ 
WORD) AT(INITSSTACKSAES) 
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PK MXTLACK POMPE MYTRACK eR MXPRACE HAVE MYX TRACE ¥ 2X / 
[RN MXTRACH AERK MYPTRARP SAR MYT PACH AsxAcH Maren © EK ACK / 


DECLARE MONT TORSS TAGE RUC Tune 


(LENGTH( @3@H } WORD, 
RSiS hee WORD, 
ile WORD, 
DI WO ET). 
SI WORD, 
DS WORD, 
DX WORD, 
CX WORD, 
AX WORD, 
RX WORD, 
FS WORD, 
Sehr 8 POINTER, 
WL WORD) AT(MONITORSSTACKSAee 
INITIAL ( 
G4%9,80,9,93,0,0,4,0,89,7,9,2,0,0,0,0,9 0,950,090 ,0n08 
BAG ,A,%,A,A,8,A,2,8,4,0,8,8,9.0,9,8,9,0,0,0,0, 
INTSRETUPN, 7A .C,7.0,@7,4,7,0,0,CMONITORSPHOC 207 nee 
JRE MYTRACK MANX MEPRACH Se MKTRACKH FE MAT RAC 0 0 oe 
PERE METRACKE HRS MET RACH Aes MKT RAC See OM Ee 
SENDIF 
/*®G318* <3, er arse eo oo ore SOC aes ee ere oho ee see ee i - heed ac se soe oC ae Sees EAA HE AE AE / 
fu 6S OK OK ONS She HK aie He SS Oe NE Sir Oi ae eee Hae SE OK OS SOK I SK 3 356 38S 3s 3 vases eee ee EAE AS AE HEE AS / 
/* PETSVP PROCEDURE BREWER 8-13-84 */ 
[ *%——-—-—-———--- at / 
/* USED BY THE SCHEDULER TO FIND OUT WRAT IS THE CURRENT */ 
/*® RUNNING PROCESS. IT °S IND IN VPM 1S Peruri “ef 
a ee at / 
/* CALLS MADE TOC.) SOUT Site OUTS CHA: ei 


[PE EE IKE HEHE HS HE BE AE HS BERET IS aE BEG AS BE MEE BS AE BEI 3 OK AE ME BE BE IES HE NE 2 MEE a AE 2 OK OK aE BE OK Ra 2 IE aE ae Be Be he / 
R=ETSVP: PROCEDURE EPYTERR aR ea wt eee oie, 
DECLARE RUNNINGSVPSINDSEX BYTES 
SITE NOT MCGierE: 


JE MY TRACE OO MXTRACE 800 MXTRACE 8% MX'TRAC ER 30K / 
Jee MXTPACE 8% MXTRACE #7 MXTRACE XK MKTRACE 88% / 


CALL OUTSLINE(@MSG1)>5 


SENDIF 
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/* SPARCH THE YP MAP FOF RUNNING PROCESS INDEX */ 
DO RUNNINGSVPSINDEX = PRDS.VPSSTART TO PRDS.VPSEND: 
IF VPM( RUNNINGS VPSINDEX ) STATE = RUNNING 
THEN GO TO FOUNDs 
ENDS 722 DO 
RUNNINGSVPSINDEX = PRDS .LASTSEUN; 


FOUND: 
Sir NOT MCORTEX 


JRE MXTRACK TOE MKTRACR SARE MXTRACKE AK MYTRAC R AK / 
Je MXTRACE SR MXTRACH MH MYPRACE RR MXTRACK 22K / 


CALL OUTSLINE(@MSG1 8} 

oF eat MNT uc SY PSTD ENO: 
Cini OULTSCHAR CCR}; 

GALL OU TS Caneel 


SENDIF 
RETURN RUNNINGSVPSINDEX3 
END; /* RFTSVP PROCEDURE */ 


7% BB EG BE FE HERE AE BER EME NE AR AE NE BS AEE ERE BE SE BECO CDK BEE HE DK HEME HEAR OC 2 BIC DEAE HE SIRE RE SIE AS HE HE NE SED EEE IE / 
y RDYTHISVP PROCEDUFRE BREWER 8-18-84 x / 

OL eg ee eee He 
pee CHANGES A VIRTUAL ee Se SLO BREAD: ay 
gp a ce SI re ee a a en oaks Ogata a ey sik ya 
f= CALLS MADE T0: OUTSHEX OUTSCHAR =/ 


[EE ME HEHE NEB REDE NE AEE HET OR OK ME BE aK AE BCE CEB AK HE OER IE eB BK BE 9K BE AE BK 1 3S BE EE OK 3K IIE RAE EDIE HE AE A aE ake / 
RDYTHISVP: PROCEDURE REUNTRANT PUBLIC: 


SIF NOT MCORTEX 


Je MX TRACE YR MXTRACR CCK METRACE 2 MATRACE eR / 
Jew MYTOACKE RK MXTRACH RR MYTRACKE WEE MXTRACR CER RK / 


CALL OUTSLINE(@MSG4) ; 
SENDIF 

Peseta avToVP; /* SAVE INDEX “</ 
SIF NOT MCORTEX 


[REX MXTRACE ARR MKXTRACR REE MXTRACR rer MXTRACE ga 
eM KTR AGE =e MADRAGE “Frew MXTRACH 8 MXTRACKE AA / 


CALL OUTSLINE(QMSG42)3 


LGui 


CALL OUTSH®X (PRDS . LAST SRA 
CAG OUTSCHAR(CR); 
CALL OUTSCHAR(LF})? 


SENDIF 


VPM(PRDS.LASTSRUN) .STATS = RRADY; 
RETURNS 
END; /* RDYTHISVP PROCEDUFF */ 


/*0404? BE TE RE HS BS TIS BIS TIS SIS TAS OHS BE BIS BFS TK NS SESS SHE BIS SL TS SIS BS SHS SHE BS SIS AS he Og NE Sle ES SIS Si ais Sis 3 MEDS HE SAE BE AE AE EERE BK TE EE / 

[* SAVFCONTEXT PROCEDURE “BREWER 8-18-84 / 
[Ra ee a: / 
/* SAVES CURRENT STACK PCINTER AND SEGMENT IN VPM “a7, 
[% ——-——— — —— -- - — — — - — — — - - — ee  / 
ee Cae MAD™ TO: aoe ss / 
/* So oe SSG 36 Sie SOS Se elec os eo oe cece eS Se sie ste aie sie Sits Sco coe pnb e a (5 Se ec Sk ok oe Oe 80 oc ae Vi 


SAVECONTEXT: PROCEDURE (STACKSPTR, STACKSSEG) REENTRANT 
PURLILG; 


DECLARE (STACKSPTR, STACKSSEG) WORD; 


IF PRDS.LASTSRUN <> 255 THEN DG; /* IF ENTRY 1s NOtee 
/* FROM KORE START yay 
STACKSPTR;: /*“SAVE STAGhIw 
STACKSSEG;: /* STite oa 


VPM(PRDS .LASTSRUN) .SPSREG 
VPM(PEDS .L4STSRUN) .SSSRFG 


Hdl 


END; 
END; 

JE QA DE 7 AERA AE HEE AEE HE ACHE BEE BE IS SSI IE BIE BE BIE HE ONE DC DYE DAE DHS IE IE BIE ONE BIS TE BNE BIE AS TE NE TIE BK BS OK OS EC BAS PIE TK OIE AC OE OS 
EES Se PROCEDURE BREWER &- 18- 84 2/ 
/* ee See se i 
/* RETURNS STACK POINTER OF “CURPENT (RUA TING PaO Gia oy 
/* SAVED IN THE VIRTUAL PROG TS SC we * / 

Keo ee ee ee ee ee ee ee */ 
1s ae ee eee RETSVP ; * 
[* Se Seen saree Re she ste ste ste ste ate ste gfe ote oth gle ate ste ate ate ae ata ote gin sta ate ste ste ste aie Ae oe sta ste he ate Sie ste Sleste Yeoh oc oe ee / 


GETSSP: PEFOCEDUFE WORD RFENTRANT PUBLIC; 
DECLARF N BYTE; 
N = RETSVPs /* GET CURRENT RUNNING VIRTUAL PROCESSOR */ 
RETURN VPM(N).SPSREGs /* KETURN NEW VP STACK POINTER */ 


END; 


Pee 


' 
ed A s'- s's se bit ate Died ate ale aly als als ale als ats 2 ale s'¢ ale ale ats s! ste ale we Je se ate als ats ale ate ale als ale ale alo ats ale ale ats abe ats al. ats als ale ale ale ale ale ale ste abe 
: A M4 
. A BS Eh ON gS yh Sys eS oS aS eye 2s ogy Oye OS AYN ayn age eye og aye © faded wilted hla bite! bial hited ita pied bia bid pied Dd Lee Ct et ete eT ee ath eT ar re Ted Der has bed i 
e 
= 


/* GETWOLK PPOCFDURF BREWFR 8-18-84 */ 
PemeDETSRMINSS TRE N'xT FLIGIBLE VIRTUAL PROCESSOR TC RUN */ 
yh oy ee ee en a nn ne 3 fs 
/%* CALLS MADE yee 5 (010 See ag OUTSLING OUT? DNYM | af / 


7 
ao OS NK 9S HSS aie oe Sina ienciO, Sie merase pierre ae te Se mee Oe 96 oe oc 6 Seley Se Se Ie OG 6 Oye oye ye O RHC BE AE AC AR 2S Ak BEE HE AE AK IE ACA HS / 


GETWORK: PROCEDURE WORD RFFNTRANT PUBLIC; 


DCR AR a een tes! ) OCI 6 
DECLARE SELECTEDSDBR WOPRD; 
DECLARE DISPLAY RYT; 


SIF NOT MCORTEX 


Greer MXTRACE EK MXTRECH RK MXTRACH act MY TPAC WH ARK / 
Meee eX TRACK Se~ MKTRACE *¥re MXTRACK RK MXT RAG UMEEH / 


CALL OUTSLINE(@MSG7); 


SENDIF 


PR i =aee 5; 
DO /* SFARCH YPM FOF ELIGIBLE VIRTUAL PHOCESSOR 
TO RUN */ 
I = PRDS.VPSSTART TO PRDS.VPSEND; 
IF /* THIS VP’S PRIORITY IS YIGHER TRAN PRI */ 
((VPM(I).VPSPRIORITY <= PRI) ANE 
eM CTeSTATE = PREADY)) THEN DO; 
(SC ereCch Hes VIR RUSE PROCESSOR =/ 
PRI = VPM(I).VPSPRIORITY; 
N= T3 
END yee Foe 
FND; /* DO LOOP S®ARCH OF VPM */ 


/* SFT SBLECTED VIRTUAL PROCESSOR */ 
VPM(N).STATE RUNNING; 
SELECTEDSDRR VPM(N).SSSPEG3 


prt NOT MCORTEX 


[76 EE FE MXTRACE oe oe SOK MXTRACE IE IS ais 3\< ok Mee A i NS 2S Ie 2S MXTRACEK ne KK / 
PRE METRACKH KHER MYT RACH Ke MYTR ACE BARE MYT RACH Werke / 

CALL OUTSLINF(@MSG7A); 

CALL CUTSHEX(N);3 

CALL OUTSCHAR(CP)3 

Gd Me dls ON OES OSS a i 

CAO TST INE (24Se74); 

CALL OUTSDNUM(SFLECTEDSDBR) 3 

CALL OUTSCHAR(CR); 

CALL OUTSCHAR(LF); 


SENDIF 


163 


RETURN SFLECTEDSDRR: 


END} /* GFTWORK PROCFDURF */ 


/* ~A~5A7 423 SSCS SIS BSE SE OIE ONS BIC BS OIE TIS SIS TIS SE OS TIS SIS SIS OTK SIS hs SIS SS BIS BIS ANS SIS DIS SI IE SIS OS ONE IS 3VS 2S BNC NS 3S Ss SS / 
Ss LOCATESFYC. PROCEDURE RREWES e~ 15- a4 */ 
[ ¥-- ene nr goo! 
/* FUNCTION CALL, RETURNS THF INDEX IN EVENTCOUNT TABLE */ 
/* OF THE EVENT NAME PASSED TO IT 7 
[hem weeeee en eee eee —----~--------—--%* / 
ps CALLS MADF TO: OUTSCHA? OUTSLINE * 


[28 REE DETER NE REE ES EERE I NE REE a aR A a aE aE aK a aE aR BE aR ES ae a aS aa BE A EE A aK a aK a aE ae a / 


LOCATESEVC: PROCEDURE( EVENTSNAME) BYTE REENTRANT PUBLICS 


DECLAKE EVENTSNAME RYTR? 
DECLARE (MATCH, EVCTBLSINDEX) PYTE; 


SIF NOT MCORTEX 


JRE METRACE HA METRACR ORK MYTRACE 8% MKTRACR RK / 
/*% METRACE *#%* METRACK #8" METRACE 4% MKTR AC mtr 
CALL OUTSLINF(@MSG2@)3 


SENDIF 


MATCH = FALSE; 
EVCT RLS 1 NRG ao 
/* SENAECH DOWN THU EVFNTCOUNT TABLE TO LOCAT® THE */ 
/* DESIRED FVENTCOUNT BY MATCHING THE NAMES */ 
DOWHILE (MATCH = FALSE) AND (RVCTBLSINDEX < 2V aN2oum 
/* DO WHILE HAVE NOT FOUND THE EVENTCOUNT AND HAVE NOT */ 
/* R@ACHED FND OF THF TARLF */ 
IF FVENTSNAMEB = EVCSTRL(FVCTBLSINDEX).FEVCSNAME THEN 
MATCH =") Ree 
ELSF 
FVCTRLSINDEX = SVCTRRS Mine ¢ 
END; /* WHILE */ 
/* IF HAV® FOUND THE FVENTCOUNT */ 
IF (MATCH = TRUE) THEN DO$ 
/* FETURN ITS INDFX IN THE EVCSTEL */ 


SIF NOT MCORTEX 

JRE METRACK RKO MXYTRACKR stow MXYTRACKE 82 MX PTRAC KE cK / 

PRR MYTEACK EK MXTRACR RAK MEP RACE ce MYTRAC RE nex RR / 
CALL OUTSLINE(@MSG23 )3 


SENDIF 
RETURN EVCTPLSINDFY; 


ENDs 
ELSE DO; 
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/* RETURN NOT FOUND CODE */ 
SIF NOT MCOP®TEX 
eee PRT CH Sr MKTRACH Yet MKT RACK RE MYT EACH *%7 / 
[mR AEE MerR ACE Bote cee “MY TRACY oa] die die igo a MXTRACE soc 2o ae MXTRACE memes / 
CALT. OUTSLINE( @MSG24 ); 
SFENDIF 
RETURN NOTSFOUNDS; 


END; /* ELSF */ 
FND; /* LOCATESFVC PROCEDURE */ 


/* FAST G* Reaeeiee Ae Oe Ore O10 SR Sie Ae OR Oi OG Ne ARC Mee TIS Sam Se Aw Oe Dae See Be HG PI DI TI Oe AIO ANC A oye OSI Aye Dee Ms Oe 5,5 ONS BE MEAS ASR AE AE AE / 


a CS eae Prog DUR BREWPS BS ee ae 
yx FUNCTION CALL Romer aN: Ral INDEX: OF THE SEQUENCE ; ae 
PemeoOPFCIFIED IN THF Seles Wai ay 
/* i ee) eae ak ore nan ane ake a ie ee ae a a ag 2 

Peco ALLS MADE TO: “OUTSLINE "8 / 
[FE EAE ASAE RE AR HE BSE HE BE ENE BE A AK AE 2 Be We he eae ce om Ae Be oes ne Oe Ae ore He ae A Bice a ye Oye Aye Sikes ye Oma e aye te eae or 8 (0 aye S oe / 


LOCATESSEQ: PROCEDURE(SFOSNAMF) RYTE REENTRANT PUBLIC; 


DFCLARE SEOSNAMS BYTES 
DECLARE ( MATCH, SEOTBLSINDEX ) BYTES 


SIF NOT MCORTEX 


Jee METEACE RO MXTRACK SK MXTRACE *R METRACE MAN / 
/eeHE MXTRACE F* MXTRACT FAK MYTRACE HR MXTRACE WEN / 


CALL OUTSLINE(@QMSG22) 3 
SENDIF 


PATCH = FALSE. 
SHOTBLSINDEX = 
DO WHILF (MATCH FALSF) AND (SEOTELSINDEX < SEQUENCEPS ); 
TY SHOSNAME = SEOSTABL™(SEQTRLSINDIFX) .SHOSNAMS THEN 
MATCH = TRUE: 
ELSE 
SEOQTBLSINDEX = SHOTBLSINDEX + 13 
END; /* WHILF */ 
IF (MATCH = TRUF) THEN DO; 


as 


SIF NOT MCORTSX 
JRE METPACK FR MXTRA CE RAK MYTRACE 2H MX TRACE %AeKK / 


[ERE MYTRACK SRK MYTRACR AE MKTRACR BRK MX TRAC PR 2K / 
Gino LoL ENR ueSG 25) + 
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SENDIF 
RETURN SPOTBLSINDFEX; 
END; /* IF %/ 
ELSE DO; 
SIF NOT MCOFTEX 
JRE MYTRACK RR MXYTRACR SNR MYTRACE IK MXPRACT 2K / 


PRUE MX TRACK EK MXTRACER FORRER MXTRACE 88% MXTRAC bh 28% 82K / 
CALI. CUTSLING(EMSE 24). 


SENDIF 
KETURN NOTSPOUNDS 


END; /* BLSF */ 
FNDs 7* LOCA UN SS BO PROCHIU Wma, 


eG 


4 U) 4, ‘ t] ‘ ' ‘ 4 ' ‘ ' lavas ' ' ’ ‘ t 
/> ee: ae EERE AE NE HE AE AE IE AED BIE NE AE AE DE SIC AE ANE HE TIE SIE EAE AE AE EE EA HS AE IS A HE OIE BIE CE 2a AE AE IEE A / 
ste oc oe a 2 ste Pie ale abo atys abe s‘< 3° ale ale ate ale ate ale ate s'¢ ale ate ats 5 ate ates ale ate ate ste ate ate ale ale ate sic ate ab, SV: whe ate wleo ate 
/* aye > a RAS eas oi As eiey 4 4 Fp Eh gt eh Mgt Aye Ue gh Fgh Aye ye Oye 94s as Fgh Fy Fgh 4 ES gh Fam AES Hy eye Aye Qh Oye Og 24> 
a we 
oa 375 Tey PROCESS FS a: 
cid ate 
/[* a Ve 


ale al-aty ale ale s‘¢ ale ale als s‘¢ als abe ate at. ale ate ale ale ale ale ate s‘¢ ale le ale ate So ale ata of: ale ale ate Ie bid de ale 3: s‘< ale ale ate ale ales ate v'- ae als ate ale ate a ale 3 e ale wie als aly 
Sod bead Cd te “> od te cad Dad e™ 4g bd | *, had Pym Mgr Fy ym Me™ Myr HEM FAD E® > 7% yh Oy™ 94> Oy 7,9 td be Cd gold td 75° yr ee Me™ ym Too ,* 4" ~~ a™ %a™ Fy'> eget <5 Ld bed ~ Cd bold tolled belied Da od bes o> Oy #y™ %” Cd te dt Ded > di 


/® IDLE PROCESS BREWER 8-13-84 9 */ 


7*~ THIS PROCESS IS SCRETULED IF ALL OTHER PROCESSES IN ay 
/* THE VPM ARF BLOCKED. THE STAPTING ADDEESS IS PROVIDED*/ 
/* TO THY IDLFSSTACK AND PLACED IN PRDS.IDLESDER. A * / 
/* CALL TC TER SCHEDULER IS MADE SVERY 4 MS IN THE * / 
/* FVENT THAT AN ONBCARND PROCFSS WAS ERADIED BY AN 7 
/* OFFBOART OPERATION (ADVANCE). EVERY 250 ITERATIONS a / 
foe THF COUNT 15 INCREMENTED PY ONE. THUS, THE COUNT IS oo 
/* INCREMENTSD ONC! PER S®COND. THE COUNT IS MAINTAINED / 
/* IN THF PRDS TABLE AND IS A RCUGH MEASURE CF SYSTEM xe / 
/* PERFOFMANCE BY GIVING 4N INDICATION OF THE AMOUNT OF %*/ 
* TIME SPFNT IN TRF IDL® PROCESS. ey 
is a eee ere se oe es ce i ee ee ee xe 

feemecALLS MADE TO2 PLM86 PROCEDURE “TIME” a / 
is OUTSLINE % / 


[BEB SEE Ee Be a AE Ae ae a ae ae aE a aE aE ae ah Ne he ae ae abe ale ae ae ae He ae CAN fe AH aN AS IE AE lca cake ae a ae Re ae / 
IDLFESPROC: PROCEDURE REFENTRANT PUBLIC: 

DEC DA eee PT is 
eee NOT MCO®8TEX 


JRE MY TOACR WRK MY TRAC BR KR MYT P ACR HER METH AGRE Rexx / 
[JERE MYTRACR 2A MXPRA CR %orme MYPTRACK Aa MY TRAC R 2% / 
Ci aeourorin hems 1.4 5 


SENDIF 


hOOt- wr omim—al TC 250: 
J*® 4 MS RELAY */ 
ihe pie = 1A. )s 
OME ILE TECKSSET QC LOBALSLOCK, 119); 
/* ASSERT LOCK */ 
TND$ 
CALL RDYTHISVP; 
CALL VPSCHFDULER; 
UND; 7 Cel / 


SIF NOT MCORTEX 

/R*KIE MXTLACK RK MXP RACK *eK MXYTOAGE wa MKT RACE aN / 

JERK METRACH AE METRACK WKF MYTRACH KK MYTRAC BR vet / 
CAMO lon (hee @MS@ ia). 


SENDIF 


Ie w¢ 


PROS SCOUINTRR = Pio tes ames 
GO TCL heer, 
PND; 7 T OGRS RO Gear 


J¥*®ABOIL SHE BS SIL SIE He Bic She 3p SHS DIE iS SiS BK Se See Oe DENS ae SMC Ne Se Se secs eee oe ste Ses cee oe sc on Sas is oe eee eee aks / 
ys MONITOR PFOCESS BREWER 8-16-a4 */ 
Ye x / 
/* THE MONITOR PROCESS 25 INIT UALIZE DS Thee: a / 


/* INIT 48ND IPLE. TT HAS THE PRESERVED ID OF OPEN AND A */ 
/* PRIORITY OF @H. IT IS ALWAYS BLOCKED 02 WAITING UNTIL*/ 


7* JT IS PREBMTED BY The (See 7 
[#%---- wo mms emma em: eo. so ee cs ec a ee —a— ae ok / 
/* CALLS MeDt  2Os oun Tne OUTSCHAR * / 
oe OUTSDNUM INSDNUM "ih 
INSNOM 7 
/* ME IS HOSS HE DS 3:5 HC AL DE 31S HC NS TC 3.5 AS AE Sik SE NE SETS BS Sus OS Sm Bk SE Sie om 21s 310 He ee AK Me SS SiS 5). NE 3,6 ME Sie oi 9: SiS St 3k Siac ie eee y 


SIF NOT MCORTEX 


/Seee MYTRACE 7: MXTRACE **38 MKTRACH =%*% MXTRACGH gay 
PRE MXTOACE HR MXP RACK ORS MY TRACE sce MXTRACE sata / 
MONTTORSPAOC: PROCEDURE RFENTRANT PUBLIC; 


PGi 
Pau POTN TEES 
Pine POM Nae 


PTR3Z BASED PTP2 POINTER, 
ADDR STRUCTURE (OFFSFT WORD, BASE WORD), 
CONTENTS BASED PTR BYTR;3 


NECLAR® 
(LINSCOMPL& Th, LOor2. PITE, 
(QUANTITY, COUNT) BYTE, 


CINCUR, IND XV AL hs Gr eee ens 
LOOP: VALIDSCMD = @$ 


Ch Lie OUMeSttiie Cpa. 
CAL OURSG HA Re tn, 
Ch Ole OH tc (aes 
DO WHILE NOT VALIDSCMD; 
CALL INSCHAR{@INCHR)$ 
Ir (INCHR = “D’) OF (INCHR = “S$ } OR {INGER = “FE ) ee 
VALIDSCMD = (FFE; 
IF (INCHR=64H) OR (INCHR=65H) OR {INCHR=734) THEN 
TAL DS Cum = Cnr 
IF VALINSCMD = O2FFH THEN CALL OUTSCHAF:!INCH:); 
END; /* TO WHILE */ 
IF (INCHE = ’N”) OR (INCHR = 64H) THEN DO; 
/* DISPLAY COMMAND SF ®CTION ¥/7 
CALL INSTNUM(@APDR. PAS™) 5 
CALL “OUTSGri ye; 


IETS. 


COLL INSDNUM(CGADDR OFFSET); 
PTR2 = RADDR; 
PTR = PTP3: 
Pe SOOuTWNTS = SrOuLD NOW RE @SET =/ 
DO WHIL® fINCARM<DOCR) ANT CINCHR<>25H) 5 
CALT, INSCRAR(G@INGHR)$ 
END; ve DO WEIlLS */ 
IF INCH? = CR THEN P03 
CALL OUTSCHAR(’-7)3 
CAl LOCUS NUM teh TINTS |. 
CA OUT SCE Fen); 
GAO ues Gel he (ten). 


END; one NOR Wei AP DR Ol S PLAY “7 
IF INCHR = 25H THEN NO; 
COUNT =—7, 


ChUL CURSO rnn 4); 
CALL INSNUM(@QUANTITY )3$ 
DO WHILE OUANTITY > @3 
CA Gl Our sic TARR?) 
CAL eCursS CHAS LS); 
CALL OUTSDNUM(ADDR.RASE)S$ 
CAL EmOumoGHAR( =~ }; 
CALL OUTSDNUM(ADDR OFFSET); 
TLINFCOMPLETE = FALSF3 
DO WHILE LINECOMPLETR = FALSE; 
CALL OUTSCHAR(” “)3 
CALL OUTSNUM(CONTENTS) 3 
ATPeeCrR GH TDe= A002 SOrwourT + 1; 
PTR = PTR; 
CU ee AEE T 3° Youecuedes 
IF ((ADDR.CFFSET AND @O@FH)=60) O8 
Coantl iy = Cue thHN LINECOMPLETH=fnUE; 
END: /*® DO WHILF LINE NOT COMPLETE */ 
FNDs /* DO WHILE QUANTITY */ 
END; /* IF MULTI ADDR DISPLAY */ 


END; /* DISPLAY COMMAND SFCTION */ 


CINCHR="S°) OR (CINCHR=738) THEN DO; 
/* SUBSTITUTE COMMAND SECTION */ 

Oni INSDNUM(@ADDR PASF)3 

CMT elOUT SOAR es” \ is 

iE 1H STANMORE. PSS RD ¢ 

Ci Lin OURSCH AR (°=* ) 3 


PTR2 = RMADDRS 
PTR = PTRG; 
/*® CURRFNT CONTENTS SHPOULD NOW BR AVAILABLE */ 
CALL CUTSNUM(CONTENTS) $ 
LOOP2 = TRUE; 
DO WHILF LOOP2 = TRUP? 
DO WHILE (INCAR<>’,”~ )AND(INCHR<>” 7“) 
AND( INCHR<S>CR)3 
CALL INSCHAR‘QINCR3)3 


END? 
IF (INCHR = CP) THFN LOOP2 = FALSE; 
Ir (INCH = “) TREN DQ3 
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/* S¥YIP THIS ADDR AND GQ TO NEXE FOS SUB */ 
CALL OURSGHE PR Gee 
CALL OUTSCHAR(LF); 
ADD? .CRRESED = ADUTR Rms es, 
PTR = Sire 
CALL OUTSDNUMI ADDR. BASF) 
CALL CUMeGr AR (2a 
CALL OUTSDNUM(ADDR.OFFSFT); 
CALT OUTSCHAR(°-’):3 
CALL OUTSNUM( CONTENTS ); 
END: /* IF SKIP FOR NEXT SUB */ 
IF (INCRR =)" ) THe pc. 
CALL OUTSCHAR(’ “)3 
CALT, TINSNUM(Q@CONTENTS )3 
DO WHILE (INCHARS>CR)A ID CINCHR CS’ oy 
CAL INSCHAP(GINCER)} 


END: 
IF .INCH® = CR) THEN LOOP2 = FALSE} 
IF (INCHR = °”,7) Ae DOs 


CALL OUTSCHIR am 
ADTR.OFFSET = ADPDR.OFFSET + 13 
PTR = PTea: 
CALL OUTSCHAR GG 
CALL OUTSCHAR(LF)$ 
CALL OUTSDNUM(ADDR.BASE)3 
CALL OUTSCHAR(] = on; 
CALL OUTSDNUM(ADDR .OFFS®T); 
CALT OUTSCHAR( “-");3 
CALL OUTSNUM‘CONTENTS) 3 
END; /* IF GO TO NEXT ADDR */ 
END; /* IF CHANGE CONTENTS */ 
INCBR = °X’3 /*® REFINITIALIZE CMD */ 
END$ /* LOOP, CONTINUOUS SUR CMD */ 
END; /* SUBSTITUTE COMM4ND SECTION */ 


IF (INCH.="F°) OP (CINCHR=65H) THEN DO; 
/* FIND OUT WAICH VPS IS RUNNING “ME” */ 
INDFX = 2RTSVP; 
/* NOW BLOCK MYSELF */ 
DISARBL®$ 
PRUSeENS PSUs IN Die, 
VPMCINDGX) STATE = WAITING; 7 
CALL YVPSCHEDULFR: /* NO RETURN */ 
END sy ol a 
EO TOrLoer: 
END$ /* MONITOR PROCESS */ 
[REE MXTRACK HK MYT RACR xR MYTRACH IKK MY TRAC R Aaa / 
JOR MYTRACH KR MATRA CE SSA MK TR ANC Ws el ee Op iae 


oN DE 


/¥*Q2 oO AE HE HERE Ae EAC AEA es ae isis: ME HK AE AE ACNE HE oo ae REDE DE MERE NE AE AE NE AE AE BE BERS OE CE NS / 
fe? EAE DK IE BEE BEE BE TS BES BS BS AS DYE HE TS TR SE TIS SS SIS EHS SES SS SIS NE NE SS SHE SES SIE SIS SEK SIS BE SNS BE OS SIS NEE IS OI NE OS tes eH Sti ae / 


i7¢ 


gs SC) AR ieee nN OF @TEW SOPERATING SYSTEM 
7. er ee ee es a ee eo ee ee ee ee x 
es ie INITIALIZES THE OS AND IS NOT REPRATED. ‘ 


[PR AEE BEBE A Me BS BE AS AS BS HR BK BI IS AE SC ME AS HE BS ACIS AS AK OC HS Se AE SYS NS YS BE NS HS BE BE I DE BIE BIE OE OK BS OE AE AS FS IL IAS OR IE DS Bye OI BIS 3S 
[HH NOTE RR HI HI FSIeake a ae EHD a a oR ae Caf AE CAS EES a NS SIE cate i ole kcal eae ale eee ee eae ae ae ok a 
Poo ENETIALIZE THE PRDS TABLF FOR THIS CPU */ 
PeImeARE CPUSPTR POINT®SR DATA(CPRDS .CPUSNUMBER), 

(A n> Glee 


i a 


DISABLE; 


SIF NOT MCORT EX 


[RK MXYTRACR A MXYTRA CER Rk MEYTRACH He MXTRACK fA / 
JRE MXYPP ACR RK MYTRACR KARR MXYPRACH were MY PRAG RP aeata / 
mL CUTSLINE(@QMSG6E12); 


SENDIF 


PemINITIALIZ®= PPI ANY PIc */ 
OUTPUT‘ PORTSCE) = @C@F3/* PPI - MICROPOLIS + MCORTEX */ 
rere’ BCU )e-) toe /* PIC = 1CWl — SDGE TRISCEHED */ 
OUTPUT ( PORTSC2) AGE: /* PIC-ICW2-VECTOR TABLE ADDRESS */ 
SUTPUT PCRTSC2) OFHS/* PIC-ICW4-MCS86 MODE, AUTO RCI */ 
eugPuT( PORTSC2) GCAFH? /*PIC-M¢&SK ALLOWING INT. 46 6 */ 


‘| 


Hie. 


/* ESTABLISH UNIQUE SFOUENTIAL NUMBER FOP THIS CPU */ 
/* SET GLOBALSLOCK */ 
DemwWHILE LOG*SSET(CGLORALSLOGS,119); END; 
PRDS.CPUSNUMPT2 = CPUSINIT; 
CPUSINIT = CPUSINIT + 13 


Peer FLE ASE GLOBAL LOCK */ 
GLOBALSLOCF = or 


/*® SET UP INITIAT, START AND FND FC? PROC TABLE */ 
PEHDS .VPSSTAPT = G; 
mo ZZ = 1 TO PRDS.CPUSNUMPER; 
PRDS .VPSSTAXT = PRNS.VPSSTART + MAXSVPSSCPU3 
RNDS 
SIF MCORTFX 
JRE MCORTEK 2 MCORTEX RK MCORTEX 88% MCORTEX "aa / 
PRE VOCOPTRXY wR MCORTHX KOK MCORTEX RX MCORTEX AK / 
PRDS.VPSFND = PRDS.VPSSTARQT + 13 
PPDS.VPSSPENSCPU = 2; 
JRA MCORTRX HAO MCORP RY weRRK MCORT RX RR MCORTRK wea / 


ELSE 


16 fal 


ale we ote ale 
Cd tod Ld be *\* 


aly ale ale J. 
DF 4 mye oye 78 
/ we ate = ale 
a> “> baad Cd Tod 


SFNDIF 


{36 
/ 


VPMCPRDS 
Veter ts 
VPP Ras 
VPMT Peps 


VEN PRS 


MATT AGE 
PHDS .VPSEND = 
PRES -VPS>oP tt. Guie 
MXTRACE 
MET ACR (ect ne a 


INITIALIZF THE VP M4P FOR IDLE 
/* AND MONITOR PROCTSS 
VPM: PEDS. 
J PSS TART 250000 See, 

V°&SSTARTISVP ser ren — 2. 
VPSSTART) .EVESTHRRARe = 
VPSSTART) . EVCSAWSV Ge = 


eA MYTRACE HEAL IE FE AE 
PROS. V2SS Ta ie 
34 

ae 2m Syareye MXYTRACGR PSPS Scie rc : 


as 


MXTRACE 


ANT) 
*/ 


VYPSSTART ).V Psi Daemee ay: 


Loss 
0; 
AOR; 


MX¥TRACE 3S SS 34S 


2 Ck ae 


game Pale lie \(G | 


INT Deo 


MXTRACE 


ate 
bad toe 


Vee Pai 
YPM( PENS 
VPM{PRDS 
URMers 
HOS PINS 
VPM! PRDS 
1 PVE RDS 
VPM(PRDS 


UPSSTARTH1 ). 
.YPSSTART+H1). 
VPSSTART+1), 
SY OSSTARTH1L). 
.VPSSTART+1 ), 
VPS Says 2 eee 
.VPSSTARTHI ). 


SIF NOT MCCRTEY 


JRO MKPOPCR RRO MYTRACK xx MYTPACK RoR MXTRACE 
MXTRA 


aly ale 92 ate 
#y™ a> Pid Deo 


[728 ES MXTSACE 
VPM(PENDS .VPSSTART+H2). 
VPM! PRDS .VPSSTARTH2). 
VPM’ PRDS .VPSSTARTH2). 
VPM CPEDS a Poo Thee ye 
VPM(PRNS .VPSSTARTH+H2). 
VPM(PRDS .VPSSTART+H2 ). 
VPM(PPDS .YPSSTAPRT+H2). 


PEN heb Glee eres ste giz sie sie MXYTRA 
Mates (se). (ONG sae (yA IURY: 
Syd G10: 

NRSAPS = NRSReS i. 
SIF MCOPTEX 


J oo eA GO nee wk 
[Ree MCOUTEX 


NESV PS ’PRDS .CPUSNUMRER ) 
PRE MCORTRX RAK MCORT RX 


SFLS& 


VeESSTART Sree Ga 
VPSS TART) Sco 50 tt 


sea MC OR 


eS ST ees cee 
VPSTD = 255; 

SO = i © 

VPSPRIORITY = 2553 
EVCSTHP PAD = 2553 
FVCSAWSVALUE = @;3 

SPSREG = 60H3 

SSoREG = IDEMSSTACKSona. 


CR Seartene MTR AO Meet cere Me 
UPSID = GFEE;$ 
STATE = 7; 


VPSPRIORITY = @3 

PYCSTHP EAD = 2553 
PTYCSAWSVALU® = @3 

SPSREG = AGES 

SSSREG MONITORSST4CKSSEG3 


CR re 2s 3h 215 3 
‘ 4 


C ¥ de ae oe Oe 


MY TRACE weer 
MXTRACE *2k2%2 


AE AE AL AE IE 
MK NE EAS HK 
aus 

AE ACHE HE RE 


HE HE AE AC 
Sores. ae 


MCORTEYX 
MCORTEX 


MCORT#X 
MC Ora x 


MCORTEX 33% 


leva 


MG Gri x. 


MY eee v Sw See 


ARS 
poe 


de wtp a's ale 

Cd 7 CF Deled Del / 
i fe 

TEKS / 


eH / 
9e ale J 


"¢ als Je 
7, +> oy™ ge 


MXTRACE 2S / 
MXT RACK 88% 


HEAL AE f 
Ae AS ISR / 


ate ate ate 


[28 EEE MXTRACR Sook cse VET eAC Pr emacs coe MY¥TP ACT ees eee MT hae FEAT ALAS / 
Poy Ps’ PPDS .CPUSNUMRBER) = 33 

Pee MY TRACH Fecr MYTRACP FH MYTRACH FAH MYT RACH AAA 

[RE TE MXYP.OACE Te oy SS MX¥TPACEH re 3S i SS OK xT anc r oie ois he a8 MiP Sears HENNE / 


SENDIF 


HDWSINTSFLAG! PRDS.CPUSNUMPER ) = @ ; 
FNSRLB3 


INDICATE START ENTRY TO 
, SCHED On / 
moo VYPSCHEDULER: Ome ei 8 / 


PRDS.LASTSRUN = 255; /* 


aie sizale ale ale 5° fs wo Seo ale aie ale ale abs ale ade S's ahs ate ale ale ate ge ate ate abe als ale “¢ als ale abe als ale ate ale ale ale als ate ats ate ale ste ale ale ale ats ate ale ale ata ale ate ale ote ale ale 
a *\* bt ad bd ted a fed 4° PhS ~ “~~ 7" be | ** #\* 7y~ 7\* “~ ~ “> 7\* “ at hed a ied {te a> *,* *\* /~ il Yd *) 7,~ bat td Cd bel bed Yd od ad Cd ted 7, id bel 7,~ bd “> ** “> “\* Cod Thal > Cd he bad ind --* 7 od he “~* Cd ted 7, *\> bad Yad *i* > “\* 


/ 


. 7) - * » ra aa ‘ 
Bee tatincia ee tes AE AAS NEALE AE AE OE AS AE NE AE ME 21S ARNE HE IE AE Pek DES DIE ie OIE IE IE DE A FE Fak MEO AK ZH SAR NE IS SIE HE 3h AS RIESE SAS HE AE I LE HS / 


ie | 6f* LASMODUL® */ 


ale ale als ate ate ats ahs ate ale ate aie ale ats ats ale ato ale ale ale se ad exc we si¢ ale ade ale aly ate sg 3'z 3'¢ alesate sls ale s'¢ Sed ate ale abe ala ale ate ale ale ate ste ate ate ale ale vio ats ale ate ot 
hd bed ell Nil d Wed Yall Bild Mad bed wy gr oy* *; ayy Pr ey oy ey ey hd ted war Me™ Mer ~ ¢ oy oy wy "| 71 o> > ltd hed ted bd tl ~? . “~~ bf | a %4* 4s Cd tad “> 7,* ~~ ~> age > ym Cd ted gy 5" Od bl Od ted ad ed "yy er - 


‘ 
iy 


ewe we 
Sed bie bid 
als 52 ate ek ate ale aly s 
YS AS 4h Aye gh > Qe & 


4 
4 ? 4 9 ? ) ry y ‘ ) ° t 4, « U ‘ , ) ¢ U o) + 1 r ‘ 
I HE RL SENS SIC Sie Bik HE Se HE Se Ne HE RE TE Sie OK BIS HE ME BS NE TE DIS SS SK ME HE SE OK 3S HE DE TS 3,5 SIS IE ONE OLE OMS AS ME IS 3,5 ONS 3,5 OS 3,5 2S ok 
oe 


3 ” *. wee « ty =! y 4 a 
SE IE DEAE FEE FS HE AS BH TIC EO ITI HE Ie He IS HE NL IT HE FL NE IK Be HE BT OK NT AS TIS FCT AS ISS BS AS SIS ASS IS AE OE NS OS 


ee 


aK HH MCORTEX MCORTREX MCORTEX eH He 


ISIS~II MCS-86 LINKER, V1.1, INVOXED BY: 
Beery 86 File LEVFLI. ORD. cF1lcsLevri2 OBJ ,:Fi:sSCHFD.OBJ,& 
oFi:INITK.OB7,:F1:GLOBAL.ORJ TO :F1:KORE.LNK 

LINK MAP FOR : FI: KOR@LLNKCTLAMODULF) 


LOGICAL SEGMENTS INCLUDED: 

LENGTH ADDRESS SEGMENT Cisne 
B505H ------ LIMONULE COD" CODE 
ee =—--— - LIMODULE DATA TATA 
a0 =---—— STACK SS Oi 
@Z20H ------ MEMORY MPMORY 
@OC4H ------ L2MODULE CODR CcODS 
ACCCH ----- L2MODULE DATA DATA 
GOV7H ———-——-— 22S °G 
oven =—---— SCHFDULER 
Q@G1AH ------ INITMCD CODE CODE 
C771 --—-=- INITMOD DATA neagTa 
QOAG@H ------ GLOBALMODULE_C fCOD® 

-ODE 
O737H ------ GLOBALMODULE_D DATA 
—ATA 


INPUT MODULES INCLUDED: 
SFL: LFVEL1L.ORJ(LIMODULE) 
>FL:LEVFL2.O0ORJ(L2MODULFE) 
>F1:SCHED.OBJ (SCHED) 

=FL: INITE.ORJ(INITMOD) 

ort GhOBAL.OPJ(GLORBALMODUL®) 


WES 


ISIS-II MCS-986 LOCATER, V1 JIN vewet rea: 
-FL:LOC86 :F1LSYORELLNK ANDTESSES (SP4MENTS (SE 
STACK (JCEHAH) ,& 

IVITMOD CODRR(@43EAB) ,& 

GLOBALMODCLE D4&TA(AES3ACH) ))E 

SUGSIZF (STACK (Zeer. 

LESSRVE(GE TO AREPFEF) 

WARNING 5S&: S¥*GMUNT IN R®ESFRVED SPACE 


= --—t—“‘=™Ss 


SEGMENT: ‘(NO NAMT) 
WARNING 56: SFGMEVT IN PRSFRVED SPACE 
SEGMENT: INITMOD COD® 
SYMBOL TABLE OF MODULE LIMODULF 
PEAD FFOM FILF :F1:KORE.LNY 
WRITTEN TO Hi Sees one 
BASE OFFSET TYPE SYMBOL RASF OFFSET TYPE SYMBOL 
?C49H @848F PUB PRDS QR7AH ASEGH PUB IDLFPEOC 
OB7GH BS5A2B PUR LOCATRSEO AR7GH VY284E PUB LCCATREVC 
PR7CH G2CBH PUB GETWORK AB7AH 71F3H PUB GETSP 
@R7OH BLARH PUP SAVFCONTEXT OB?79H 8185H PUR XDYTHISVP 
OB70H @O13AK PUR PRETYP @BAPH @977H PJB CLISTHI- 
BUTIONMAP 
GEBADH @953H PUR DFFINFCTLUSTFR APADH 98148 PUR SYSTEMIC 
@BADH @64FH PUR CREATEPHOC ABADH 264FH PUP TICKET 
GRADH @5FBE PUR CREATES*FO ARADH OSPFZ4 PUB PRREMPT 
CBADH @254F PUB ADVANCE PRBADH ALAPH PUR AWAIT 
GRADH @159F PUP RFAD ARADY GOOEZH PUR CREATEKFVC 
OBADRF @@36H PUR GATEKENPR? CC43H “PCAR PUB VPSCHETULF? 
OC4RH 29337 PUR INTVFC AB439H @902H PUB INITIALP20C 
F530H @25AF PUB VPM F53@H O65RH PUB SEQTABLE 
F53@H 6652H PUR SFOUENCFRS F530H 6594 PUB CPUINIT 
F5334 @@02H PUR RFVCTBL F5304 A000H PUP LOCAL- 
CLUS TRE Aine 
E52370H ?658H PUP FYENTS ¥530H ¢64LH PUB FDWINTFL4G 
F5304H @644H PUP NRVPS E5304 9643H PUP NRPS 
F530H @642H PUR GLOBALLOCK 


174 


Meo PAP OF MODULE LIMODULE 
fee PROM FILE <F1tk ORE. UNF 
Moers TOC FILF :FitkCae 


Bemieas St'RT AnNP ESS PARPACR SPH = @®B7AH OFFSET = @AS?H 
SEGMENT M4p 


SaAR T STOP LENGTH ALIGN NAME CLASS 

(?911¢H PO113#8 AAA4aH A (ARBSOLUTE) 

QAZOH G43 OH AZ1AH W INITMOD CODE CODF 

ABIVPAH PRAD2H 23034 W LIMODULE CODE cept 

OBANAH AC4Q7H gorau W LZMODULE CODE CODE 

OC492P AC49QaH CUGAH W GLOBALMODULE C CODF 
-ONF 

ACAGRH ACA4QPH BAABH W LIMODULF DATA DATS 

VUC4A QR OC4AAY ABAGH W L2MODULE DATA DATA 

AC4E CH COC4A08 AA01H W INITMOD DATA DATS! 

AC4BGH ACABAY ABAAY G 29 SG 

GC43BGR GC546E AYQTH a SCHEDULER 

PC55?°H ACSC4H QAP5H W STACK STACK 

ZC 5DUH AC549H AC7AH A (ARSOLUTE) 

CC65@H ?C6C OR O07 AH A (ABSOLUTE ) 

1QAGAY 10774 Aarau A (ARSOLUTE) 

R530A0H F5 4264 A278 W GLOBALMODULE_D DATA 
—ATA 

E5 Aga PH ALQQYT AAAAH W MFMORY MEMORY 


Co 


ae eee MX¥TUVACE MT Ares MXTRACE 


ISIS-II MCS-85 LINKFR, V1.1, INVOKED RY: 
TL: LINKRE sPLSLPVPL1.ORJ,: Fi *UBUSLe cP] .- Pi SGimocre 
SFIS INITK. ORT, *RPEeCL ORY. OF) Teme KOR ke Inn 

LINK MAP FOR :F1:KORE.LNK (LIMODULE) 


LOGICAL S¥GMENTS INCLUDED: 


LENGTH ADDRESS SPGMENT CAL SES 
@eC6H ------ LIMODULF _CODF COD® 
0133 ------ LIMODULE Data pata 
QP62H ------ STACK STACK 
GQOAH ------ MBMORY MEMORY 
CDFFE  ------ L2MODULE CODR CODE 
AQPSH  ------ L2MODULE DATA DATA 
QOQUR ------ ?27SEG 
QCO7H ------ SCHEDULE? 

@G1AR  ------ INITMOD CODP CODF 

QQQ1H ------ INITMOD DATA DATA 

CCOAPH ------ GLOBALMODULF_C CODE 
-ODF 

B7Q7H  ----- - GLORALMODULF_? DATA 
-ATA 


INPUT MODULES INCLUDED: 
oFL:LEVELL.OBJ(LIMODULE) 
>F1: LEY FL2.0ORJ(L2MODULE) 
-F1°SCHED.ORJ (SCHED) 
SP1l:INITK .OBI(INITMOD) 
*F1:GLOBAL .O3SJ(GLOBALMODULE) 


1 


ISIS-IJ MCS—-86 LOCATFS, V1.1 INVOKED RY: 
“FL:LOCRR sFLiXORPLLNK ADDPESSFS(SFTaMENTS(& 
STACK (ACHRAF) ,& 

INITMOD CODE( @439AB) ,§ 

GLOBALMODULE DATA(AP5ZAAH)))S 

Peres IZE(STACK(7EH))& 

RESERVE ‘/OR TO AARFFE) 


WAPNING 56: SFGMENT IN RESERVED SPACE 
SEGMENT: (NO NAM®) 
WARNINGS 56: SEGMSNT IN RESFRVFD SPACE 
SEGMENT: INITMOD COD® 

SYMBOL TAPL® OF MODULF LIMODULF 

READ FROM FILE :F1l:KORE.LNK 

WRITTEN TO PILF :F1L:KORE 

RASF OFFSFPT TYP® SYMROL BASE OFFSET TYPE SYMBOL 

@C2CH @F?6H PUR PRDS PACAH AHAS PUB MONITOXP20C 

G@ACZE G49CH PUP IDLEPROC AZACAY OMSFDE PUB LOCATESEQ 

GACVR @35ERE PUR LOCATFFVC CAC@H O293H PJB GETWORK 

PACPH 2ERH PUR GFETSP ?C&CAH A236H PUE SAVECONTREYT 

@AC@H 1DSH PUB RDYTHISYVP PACAH 8165H PUR RETVP 

@B4CH ADDIH PUR OUTHEX @B4cH @CCCH PUB INHEX 

OR4CE AC7CE PUR SENTCHAR AR4CH AC59OH PUB RRECVCHAR 

PRACH YC2ZDH PUR OUTDNUM AOR4CH @RF4H PUB INDNUM 

@F4CH @OBLDCH PUP OUTNUM AR4CH APBDH PUP OUTLINE 

@RB4cKH @875H PUR OQOUTCHAR Q@B4cH WRSAH PUB INNUM 

PR4CH @ORSFH PUR INCHAR AB4CE AAKEH PUB DISTHI- 
BUTIONMAP 

OB4CH @ACAH PUR DEFINFCLUSTER @R4CH 798BH PU8 SYSTEMIC 

G@E4CH @818R PUR CREATEPROC APACH ATVAFH PUR TICK?T 

PR4CH @6729EK PUB CREATFSFOQ PR4CH @5109H PUB PREEMPT 

FR4CH AZBZECH PUR ADVANGE @B4CR C2RB1H PUB fwWwaltT 

Q@R4ch @A256DR PUR RFAD AR4CH @6144H PUR CREATERVC 

PR4CH @?6BF PUR GATEK TEPER AC4FH ASCABH PUB VPSCHEDULEH 

G@C4FEF QO633H PUR INTVEC A439H YAAVA2ZH PUB INITIALPROC 

F5370H @254H PItR YPM F530H WV65RBH PUB SFOTABLF 

BS304 BE5AN PUP SFOUFNCERS P5394 ABSIH PYB CPUINIT 

B53@H 8602R PUR TYCTRL F53GE O¢OCH PUR LOCAL- 
Cis Che enee 

R5S¢H A658 PUR FVFNTS P5304 QO64F4Y PIP EDWINTFLAG 

E53?K %644H PUR NRYPS F53AH 2643H PUB NRRPS 

F539H 86424 PUP SLOBATLOCK 


AG 


VEFMOrY M4P OF PODUL Fe Lon iia 
READ FROM FILY <+FilS7GRrs ot 
WRITTEN TC PILLS tae eas 


MODULE ST*OT APDPESS PARAGPAPH = ACOH OFFSET = CASBAH 

SEGMENT MP 

SA STOP LENGTH ALIGN NAMP CL4SS 

401108 AW1134H Q0044U h (APSOLUTE) 

C429CH 043A9H8 PALA Ww INITMOD CODE cop? 

GACOSH AR405% ALCKEH W LIVOSUT Er (CCE CODF 

AB4C6H ACLC4H AN¥FFR W L2MODULE CODE CODE 

CC2C6EH PC2C6F CAPBE My GLOBALMODULE C iC 2UE 
-ONE 

OC2C6E GC3SROR @133H W LIMODULE DATA DATA 

ACBR AT PC4DFF CORSH i LOMODULE DATA DATA 

AC4* QE ACATQH ARAN W INITMOD DATA DATA 

OC4FQH AC4P AR BEBOU fe! CSG 

VC4K GE ?CER6E AGaA7H @é SCHEDULER 

@CSESH AGE2LE AQTSH W STACK STACK 

JC630H PCFAQEH QATAH A ‘ARBSOLUTE) 

CCE6BRH 2072 CH PATAY A (ABOCRUT  } 

OC73GH OCTAQH AAPAH A ‘APSOLUTF) 

LAUOGE 1097745 AQTVAH A ARS Cine) 

P5S0CH £5 436H ?737H W GLOBALMONDULE D Date 
—ATA 

B5AR2H W5 AQQH ACASH Vi MEMORY MEMCRY 


ie 


APPENDIX I 


{oO 


SCF! SOURCE CODE 


DULER § INTERRUPT HANDLE 


—- “= 


— 


nae 


ime oMeemecoge in file SCHED. ASM 1s Dart of the LEVEL 
I modvle. Details vertaining to assembler invocation may be 
momma in {Ref. 20) and [Fef. 211. This module is linked into 


file KORE.LNK end its memory map is included in the map for 


Pork. 


* "e aly of e als als Ye i. 0 ‘ a «! a als 
' es a 4) ~A ers & SIR SK SiS BAK OS SIS 2a om Sys ape Oe Sas SFiS aS 2.6 Spe ojh bee Sime Nes eee ec ee Ses SK ee cs Bie sis Siz 3c sie Sle sc cee 
’ S PEDULE! §SM FILE Rn WER & =44 


i> fa ne ce et a = —_—aEm em em «os eo om em em es see Oe cee se OE se Oe ee oem fe fe ee eo fee fee fee fee Oe ewe ome se fee oe Ae oe —_ —_— —_— = ne ee a 4 


»* THE FOLLCWING ARF TRS EXTERNAL PLM&E PROCEDURES CALLED 
SRY THIS HO Dili 


EXTRN SAVYCONTEXT WR 
EXTRN GHTSP:PAR 

EXTPN GETWOFK: FAR 
EXTRN RDYTHISVP:FAR 
GSXTRN PRDS : BYTE 

SXTRN EDWINTFLAG : BYTE 
EXTRN GLOBALLOCK:BYTE 


SCHEDULSR SEGMENT 
PUBLIC PSCHEDULER 
PURLIC INTVEC 


VPSCHEDULER PROC FAR 
ASSUME CS:SCHEDULER | 
ASSUME DS:NOTHING 
ASSUME SS:NOTHING 
ASSUME ES :NOTHING 


> ENTRY POINT FOR A CALL TO SCHEDULER 


CLI 
BUS vs 
MOU Cit: 


SWAP VIRTUAL PROCESSORS. THIS 15 DONE BY Say ite pe 
sOTACK BASE POINTER AND THE RETURN TYPE FLAG ON THE 
sSTACK, AND RY SAVING THE STAC Se aN AND eS cer 
s>POINTER IN “ESR VIRTURT SP RO rs Se ieee 


INTJOIN: PUSH RP ;SAYF "CUPRENT STACK BASE 
PUSH CX ;SAVE CURRENT IRET_IND FLAG 
MOV AX,SP | 
PUSH AX ;SET UP SAVESCONTEXT PARAMETERS 
PUSE SS ;SET UP SAVFSCONTEXT PARAMETERS 
CALL SAVESONTEXT 
Chi oi Won kK ;GET NEW STACK SEGMENT 
PUSH AX - ;TEMPORY SAVE OF STACK SEGMENT 
CALL GETSP ;GFT NEW STACK POINTER 
POP SS SINSTALL NEW STACK SEGMENT 
MOV SP,AX ; INSTALL NEW STACK POINTER 


,OWAP VIRTUAL PROCHSSOR CONTEXT COMPLETE AT THIS POINT 
>NOW OPF=ATING IN NEWLY SELSCTED PROCESS STACK 
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POP CX ;GET IRET_IND FLAG 
POP PP SINSTALL NEW STACK BASE 


Meee eok POs ERTURNP TYPE, NOGMAL OF INTERRUPT? 


CMP CX,77H 

ioe INTRET 

NORM RET: POP DS 

; UNLOCK GLOBALSLOCK 

MOV AX,SEG GLOBALLOCK 
MOV ES, 4X 
MOV ES:GLOBALLOCK,2 
SR 
RET 


VPSCHEDULER FNDP 


@ wZe s'¢ we ale ss ate ate ate ate ¢ ss ate abe ote ads ale ate ale ate ale ale afeats ale ste ste ste als Pid we le a's ale ad ale abs abe se ate wla alent ate ste als ole ale sts abs ato ste als ula ats ate ate ate ats ste 


ODS IES BS DK AS SS BAS OE YE BIS OI OE SHE SS NE TE TE CAL AS MEAL AC AL ATC AS AL SES ie NE HE IE IL IS AE BIS He AC HE TE SS BSE oie BIE SIE NE BK BIS AE DE SHE EAS a 

’ ale 
2* INTERRUPT FANDLER ‘ 
;* 3K 


INTERRUPT HANDLER PROC NFAR 


ASSUME CS:SCHEDULER 
ASSUME DS:NOTHING 
moouMe SS: NOTHING 
ASSUME ES:NOTHING 


ONPVEC: CLI 
PUSH ES ; SAVE NEEDED RFGs TO TEST INTERRUPT FLAG 
PUSH BX 
PUSH AX 
PUSH CX 
CALI HARDWATF_INT FLAG 
MOV AL,@ 
XCHG AL,PS:HDWINTFLAG(BX] 
CMP AL,?7H ico D er MCmon a7 
JZ PUSH REST_RFGS Ik “YES” SAVE REST REGs 
POP cx IF “NOT’ RESUME PREVIOUS 
POP AY. EXFCUTION POINT 
POP BX 
POP ES 
STI 
LRET 


2e @2e@ we 


PUSH nxkST REGS: PUSH. DX > FLAG WAS ON SC NEED 
PUSH Ds > RE-SECHEDULE — 
Pio oo! 


Pe 


Pus ani 
MOV AX,SEFG GLCBALLOCK 
HON Say 


CKO Ae ; LOCK GLOBAL LOCK 
LOCK XCHG EStGLleOzaricck es 
TEST AL, SE 
JNZ CK 
CALL RDYTHISVP 
MONS CA Ca ; JUMP TO SCHEDULER 


JMP INTJOIN 


IN Tie POL Dt 


PO st RETURN FC 
POrs US PROCESS WHICH 
POP DX BAD PREVIOUSLY 


ig Once. > BEEN INTRPRUPTED 
; UNLOCK GLOPALS LOCK 

MOV AX,SEG GLOBALLOCK 

MO Ve Motes 

MOV ES:GLOFALLOCK,@ 

POP oh x 

elie" Joi! 

POP SiS 

Sue 

lees 


INTERRUPT FSNDLER FNDP 


U * . ¢ e = . ~ ute ee ae ”~ ¢ 
2k BE TEE ES AS IE SES NE TIS TIS SETS SHE SIS SE BE TIE SIE SHE OE SIS IS SES SIS OIE SI AE HE SE SIE SHE aE SE BIE SE DE ONS IS IC IS SIE 21S 34S BS BEE NE 3,5 HE TIS SIS IS 3K HEDIS AE AE iS 3K Dic 
ole «ale ale be fy ale of - ale 4 «we 
SiS SS SS SIE OIE SHE NE HK ME SS SSS SIE NE EE Si- SIC Oe Ste RS ic HE Oe SiS Sie SoBe Bic sya opm ye aye ape apm aye oye age ope Sym Dye eye ope bam Oye aye Ae Ope ape mse ope Oe oer ee 


a HARDWARE INTERRUPT FLAG *< 


bad pi 


we 828 w2e we 


HARDWARE INT FLAG PROC NEAR 


ASSUME Co SSC EUG 
ASSUME DS:NOTHING 
ASSUME SS:NOTHING 
ASSUME SS :NOTHING 

HDWEFLAG?: MOV "X,SfG PRS 
MOV Riese nh 


MOV BX,OH 

MOV Gets <P eoaeaa von TCU 

MOV CH,@ > RETURN IN BX 

MONT BAe ae X 

MOV AX,SEG HDWINTFLAG sSFT UP HDWSINTSFLAG 
MOV ES, 4% } SEGMENT 

RET > HETURN IN ES tkG 


HAPDWAPE_INT FLAG FNDP 
SCHEDULER ENDS 
END 


Te2 


APPENDI?Y J 


OL 


{iJ 


GLOSAL DATA BASE AND INITIAL PROCESS 


— 


1 


— oe oe —- — oe © 


ium l1es are contained in this appendix: GLOBAL.SRC AND 
INITK.ShC. They are separately compiled with the LARGE 
attribute. They are linked into the file: KONE.LNK. They are 
represented in the memory map for KORE presented at the end 
of Apoendix Te INITK will be overwritten by an 


initialization module on e@ach real processor. 


183 


3c “he mie ate x whe o's ale ate als ats a's abe ale ale ale le ate ale ale ale ale als ale we ale 3s we ate ale ale a's ate ate als a's ale ate a's ats als ale oe ate ale alo ale al 
°,* ~~ tal Ld be *,* eo #4" 7, tad Ded bl | - bd ed 4° 2 . o,* *.> Corte i“ ? 


. ale 
7 La ad bd toed od ted e,* od Yo *,* vy, had om Sad Tad Ld ted bad Ted *~ *,* Cd Ded ad ba od Yd ad tee *~ PR Ld fe *,* ,? *,* Sd Delia Dodd Yd bad bed 


debe HEIR FS SiC IS SE AE SS SE SE 31s Sik WS SiS Sie Sk oie Sis Six Oe OAC oe FS ops ann sak oie orc mpeee ee ae a eee ee ee SSS 3s 35555 58 Spe ye eee 
[* one S SIR SiS SHS SiS DS SE Sis SIS Oe DENS SE HE BE He Sis Sic Sak me mn a.m Se 3,5 2,= Oe 3, aye aye ope ale pie Os wie a= oie CG ais Gc cee cs eee 
7 aes? GLOPAL.SRC 
VERSIGN: BY EWE 2=-fee=4 
PeOCG BDU 
DEFINED: NONE 


REMARKS: THIS MODULE CONTAINS DECLARATIONS FOR ALL THE 
CLOP4¢L DATS THAT RESIDES IN SHA EDSCOMn GT 
MFMORY. IT°S LOCATED THERE BY THE LOCATN Cee 
MAND AND BY SPFCIFYING THAT THE 
GLOBALSMODULE DAT SEGMENT BE LOCATED AT SOME 
APSOLUTE “DDRESS. 
a 


vz als 3'¢ ale >: 3’ abe ale ale ale slo 3'< ate abe ale alo din a ci rete ede eve «3 raid 4 eae als mies es eG oes ah ale ale ate aby abe ato ate ale ate aie ats ale ats ale ale ale ste s'z 
Yd o\~ hed *~ s* '*~ “~*~ oad tad *,~ *,* o> e° Cd tee .o-~ od tad =g™ sad bl irs “~~ oy ¢ cise =< *K a5 ad be od tol bl Id bd tal *,~ Cd td bd Yad Lt bes Sad Tad #,> o,* Ld toa vy, ~> *° ha ted bd Yad * t 


GLOBALSMODULE: DO-; 


{* SEE SAE IK SE AS IK NS AE IK AS HK DIS NE AC ENE Se SEE SAE AE BT AE TE AS AT AYE IK BS SS OE TIS OIE OSS NS BE ANE AS BK AS OK 3S he! 
[78 BEDE RES Ss Pe eh er kg neers Sou Her ee Wrap eae Rae rae pep SHE DES SIE SS Sys Sem Bye Bis 2a Bye See Bye Dem age Sys Bie Bye Dow BgO Bee oye oye Sys ops oes Shs =(e oe ose eee < / 
/* THF FOLLOWING THREE LITERAL DECLARATIONS ARE ALSO 7, 
/* GIVEN IN THE LYVEL1 & LEVYL2 MODULES OF THE OPERATING 
/* SYSTEM. 4 CHANGE HEPE WOULD HAVE TO BE REFLECTED IN */ 
7 THOS & MODUL Yaa oor 7, 


DECLARE 
MAXSCPU GAT lie es 
MAXSVPSSCPU Lit eR eon ao © 
MAXSCPUSSSSMAXSVPSSCPU LITERALLY “19073 


DFCLAEE 
GLOEALSLOCK BYTE PUBLIC INITIAL(9); 


7** TRIS SHOULD REV LMCT SIE MAS CPU Ae OV, 
DECLARE 
NRSRPS BYT? PUBL Carl) aye 
NEOVPS (BAX SCPU eri Te erie 
INETIAD(@ 40.020 .57 0.7.0. Ouoe 


DECLARE HDWSTNTSFLAG(MAYSCPU) BYTE PUBLIC; 


DECLARE FVENTS BYTS PUBL IG. Vian 1 |, 
DECLAPE LOCALSCLUSTERSADD WORD PUPLIC; 
DECEARE EVCSTPL 100) STRUCTURE 

(EVCSNAME Iya Gok di 

VALUE | WORD, 

REMOTESADDR WORD, 
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THR BAD 


Ee 


1 PSE Ue 
AGA Erie et ie 299) 5 


ite ToekeSPRVEDeROR TYR OP SYS */ 


DeoLAkE CPUSI‘IT BYTE PUBLIC INITIAL(@); 


DECLARE SFOUENCERS PYG PUbETC INITIAL( 3); 
DECLARE SFOST*BLF(1@@) STRUCTURE 
(SEOSNAM® PYTF, 
SROSVALUE WORD) PURLIC3 
DSCLARE VPM{ MAXSCPUSSSSMAYSVPSSCPU ) STRUCTURE 
‘VY RSILT BYTE, 
VPSSTATE RYTE, 
VPSPPIOPITY eae. 
FYCSTHRFAD Babe. 
EVCSAWSVALU® WORD, 
SPS$2EG WORD, 
SSSREG NORD ee PUBLIC; 


END; /* MODULES */ 


yee BE AS DE BE HE HE AE IK FS BE TIE DE IS IS PERE TS HI IE 3s SIS IE 


ale ats als yi 


18 


®, 2, 3, ' 3 ' ) iJ a . 1 1 2 te al r) 1 
Bree te eis OC sreteeg cia tise ac 3S ors orate 3, c\r oo a0 < Die Sie 21S io sie os|c1e is AO ae 


@ ate veo ale ale ale ale ote ale Se We dp ale ale ale ale alo ale ate Yo ye ale aly Wo ale ate we ale ale Ws oe ale a's ale aly ate ale ale wis gl- alo ale ale sie sis ale ats a! Se aloe! le ates! ‘ws! D 
WE on Cd tad od bel ~* cd tel 7 dl bd bs > > ¢,~ Pa Ld te *,> bd tad Cd ted 5= oy rr o 38 po 4 o> “> od bed ~~ od ted ~ td Ped “~\ Pa a8 «\* Cd bed bd ted ~~ id bed 38 3, 2° ,~ oe ae of > ~ we a8 aS > oe a as 3< ays oe x? ye 


ba BGK MODULE BREWER @-18-44 


/* THE CODE SEGMENT CF THIS MODULE 1S WHAT Reo bee ee 
/* BY THE CS FOCR THE USE? INTD WA PR CC2s oe eee 

/* WXECUTIBLE IN IT S OWN FIGHT OS TRUS Tr Tae ste cs. 
/* NOT PROVIDE AN INITIAL PROCESS THIS ONE wILL EXECUTE, 


at 
LAY cay 


a 


aA 3: 
as < 


/* BLOCK ITSELF, AND TDL" TER CU. THE Di RS Se eee 5: 
/* INITIAL COPE SEGMENT IS PROVI GED TO LEvall fips * 
/*® REFLECTED IN THE PLM LOCATESCOMMS ND tema 26 
/* PROVIDED MUST ACRES.  THISWRRIGCHS S SHA eeee eee i 


/* PRIOFITY ANT WILL ALWAYS BE SCHEDULED FIRST BY THE 
/*® SCHEDULE: . x: 


fe CALLS ADP hOe AWAIT 


[RE AE AE AB ASAT HE EAS BEATE HE EAE INE DHE AS BIE NE OE AE INC BIE AE AT AE AE EAE RE AE AE AE HE AE DEC IC HT OY HE BIE OMe THE HS AE FS SE DIS FE AIS BIE 2s ANE TIE NS FE OS 


INITSMCD?: Te. 


PRES MEYTRACE Were MET RAG Re eters 1 Te A tee ae eee le eee 
{REE MXYTRACE RRS METRACRH NH MKPRACH Smee MA TRAC Cee 
/* DECLAGE | 
Te MSG13{*) BYTE INITIAL(1@, “ENTERING INITIAL PROCESS ~, 
/% 105 2G 
Le OUTSLINE: PROCEDURE! PTR ) FXTERNAL; 
/* DECLA®® PTR POINTERS 
aoe END; 
[RK MYTRACK RRA MXYTRACH wAeRKH MXTPACH Kee MXTRACH Aa / 
[EE MXTRACE piles tp deed ain 3 MXTRACE gr seco he MXTRACE ey es sn MXTRACE AEA / 
AWAIT: PROCEDUPE( NAME, VALUF ) EXTERNAL; 

DECTARF NAME BYTF, VALUE WORD: 
END; 


INITIALSPPOC: PPOCEDURE PUBLIC: 


DECLARE I BYTE; 

/* BRTER INITIALIZATION THIS PROCESS BLOCKS ei 

/* ITSELF TO ALLOW THE NEWLY CREATFD PROCESSES  */ 

pg Ri is 2 SG RCD IU II ty) 

/* THIS AREA SHOULD BE WRITTEN OVER BY USER INIT */ 

/* PROCEDURE MODULE. fay 

/** MY TRACE SRE METRACE SHXRH MXTR ACH 8K MX TRAC H aaa 
/*ee MYTRACE Se MYTRACH HERE MNT RAC aezet MENG ieee 
hi CALL OUTSLINE(@MSG12);3 

JP MYTRACE 4X METRACR Hee MNTR ACH Sees MPR AIC ecm 
ju MX TRACE MEME SIS HE AE MX¥TRACE HS 3S SE Dt IIE MXTRACRE 3S 345 BE 2 3S MXTRACS TE ERE / 


CALL AWAIT( AFBH, 1); 
END} /* INITIALSPROC */ 
END: /* INITSMOD */ 


aad On Ga 

NI3@1@ DFVICE DRFIVER AND PACKET PROCESSOR SOURCE CODE 

imis code consists ct PL/I-86 modules and 8@86 assembly 
languafe modules. PL/I~-86 is primarily an applications 
programmire language, rather than a systems development 
language. As such, it does not have the languege features 
to gain access to the 80865 processor or MULTIBUS hardware. 
Memes tuations 8where Jt 15 necessary to access hardware- 
dependent components, RASMS86 [Ref. 18] modules are called. 
These assembly language oe saeeare wm Oca Led sn 4, ke 
ASMROUT.AS6 fassembly language routines), and are linxed 
with the PL/I-86 modules. 

As described in detail in Chapter IV, the Driver is a 
een tixX system process with a dedicated real processor. Its 
linking corventions and use of MCORTEX primitives are 
micemclcadl LO any user orocess. The notable exception is the 
freee of 10S initialization module to define the cluster 
address, create seauencers, create eventcounts, and 
distribute the eventcounts. 

The Driver also reads a file called ADDRESS.DAT to 
determine its own physical Ethernet address and addresses to 
load into its multicast (or group) address table. Note the 
mrpe Of data in ADDRESS.DAT must be Diets uring for 
addresses, and fixed binary for the number of group 
addresses. 


Le7 


The SYSINITI.PLI file is the initiall zat vonesei eee 
Cluster 1 and SYSINITZ.PLI tse initialization mod tomes 
Cluster 2. These files and ADDRESS.TAT are the only system 
files that must be changed when new MCORTEX processes are 
added, causing a change in eventcount distributivity. 
MCORTEX processes may be readily ported 1n executable image 
form from one clus teratoma no thier . The eVenteouime 
distribution changes only reawvire a change 12 tne ) raga. 
initialization modules and the cluster ADDe'ss Dit Shite 
The anount of recompilation and linking is kept toweae 
absolute minimum with this schema. 

The contents of SYSDEF.PLI (Apvendix E), ADDRESS.DAT, and 
the Driver initialization modules reflect tne current system 
configuration. This is the demonstration process described 
in Appendix *. 

Due to thesis format requirements, the structure of the 
source code is slightly altered, i.e., PL/I statements are 


not necessarily compilable as illustrated. 


Tee 
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~ te ade oe te ale w! UJ G U & =! ~ ale a'eate a! . u ~ 
BE AE AEE AS IE AE AS AE BE AE SHE IE AS HE AE BIS AE IE DY I IY” EAE OS AE YE AS Bye BE IE TRE AE AR OE IE TNS RE HS TEAS AE AS AE TES AS BS IS EAE SS IE TS HE 3S IE 


ee Ouitser = tne too. DAT Pile alte 


nw ole ale ae ale we ale se ale wle ale ale ale We ala ole ale ale ale ale ate do ale ale ale ads ale ale ale ale ale ale o's ate ale als slo alas ale ale ate ale ate ale ots ate atasta ats ate ala ale ste ate ale wile ale ate als ate 
rita et Co i Tia dias a6 Mr Fue A> FE > a> Mam 4m MY SEP FE™ AM MP Ar pM Gs KV® ABP 70% KT® DS He G8 Ee MG Gm MP OG 0" 38 Be a ptt Ct PCT RCI PS) Ca PUPS Cp Re hs Cat ps CAs ICS Lg pig Pig od Cf pT Pd poling itd fos 


1, 
“OELFLE TO“ b, “OFCCEALI “db, 
“OO%BBAGA “b, “BAAABAAI“d 


ale ale ate ale ats whe aly ale ale ale ale abe ws ale ale ais le sty x¢ ye ale we doate ale ate ~te ale ale aly ale ale ale ale ale ale ale ale ate ale ale ale ale ate ate ate ule co! ale ale ats ale ale ate als ale a's gle ale ate 

AD yr ays og 3,5 Ayr gr 42 Fae > 7 Q" Py PF Gd ye Oph oye Syd OS AES O ge 2yr Ay Oy 94> > 74> as Pym Gg ye OYe Gye O4r Hye Gr 24s ye Oy> on Pd ees Dialed 2o PT is Dette De he Pee bed bie bo 
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HE MK EAS ALK DS HK BE HT IE BE AE AE ME TE IS TS BR AE HE HLL I NE DE MS HE TE BS DS EE BS IS IR OK TK SK OE SS DE TIS IE TE AS IK OK AE BEE BS YS TK DIE MS OIE OIE AS 

wlse ate ace e whe als ate 

a . * “> ~ 
oo Soir ht file alee 

5 Rieter cls ale ats alg acat ‘ rete Pad yes pias ty ay ct . 5 a 

NO SIR Gee Ga dk Tiara gid ny enor Raed need cl nade p ah aa Aa haben Goede bn SPAS Gb ieti-h ap > Soo 4b db th #4 bab Abe dh o> dp Abt Per Ee a Sp eaPD Sb he Ra ee 4d 


Emesamiti: proc options (main); 


mnclude sysdef.pli ; 
areplace 

eG eee a py °80°b45 
re main =/ 


call define cluster (°9001°b4); /* must be called 
Prroke tOmerea FIle 
eve s */ 


baie si ae USER He AEE AS / 


Cali@ereate eve (1PACK IN); 

call create eve (TYACK_OUT); 

call create evc (MISSILE ORDER IN); 
call create eve (MISSILE ORDER OUT); 


we SYSTEM #a%/ 


call create _evc (FRB READ); 
call create evc (EPB WRITE); 


— 


call create seq (FRE WRITE REQUEST); 


/* distrib. map called after eventcounts have 
been created */ 


call distribution map (EVC TYPE, TRACK IN, “60@3°b4); 
/* local and remote copny of TRACK_IN needed */ 
Cqediounout hom map (HVC TYPE, MISSILE ORDE® OUT, 
“P0O3°b4)5 
call create proc (’fc%d4, °80"b4, 
"A950" b4, “BRAN D4, “BUST d4, 


iat, 


°0439°hH4, “FEBFC D4, “AROR"D4)3 
Call await ( fe 64.) @ieera 


end sysinitl; 


4 2 4 4 6 t 4 4 ) 6 t whe ele oi! t] LY) ’ 4 ‘ . 4 , eels 
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27 MP 9, Fe AE 7 PE YS FY ph gd Gs Sr ogd Sys CGS Gye Hye OY F,% SpE 24s Sym oy Se age Sys Sh Ge OEd Age Ee OAS Gye age Spe FAs 24S Sym Myr Yd A, Oy BAe 2,5 Sys Sgr Syd FEY A> OES ALS Or 94% Gye Oye HS 


ata Cluster 2eADDn rss ae eae ee 


a eal, ». = a 
HEAT ALAS EAE HE AT AS AS AS ASAE AS AE AE NE AS AE AE IE AE EAS AE AE AE NE BE AE DEE BE NE AE NS EE OE BS HE AE OIE AE YE BIS IE AE UE IS IE OS IE BS TIS NS 2 OK OIE 


i 
“OCOMOOAL bd,  @PEOBE1A’d, 
“OBAAANBD~ b, “ABAOSA1A~d 


ale ate at ale ate 3 Ss ate st¢ ste ate 3 ale abe at. ste sie we kd a's ale a's ale ste ube als ale ale ale Se ate alle ale ale ate ale ale ate ale sla ate ule aly ale als ste we whe ate ale ale ale ts ats als ale ale ale ats ule 
= Xs : a S 
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BIE AS RENE TE ae AE die is le AS Sie ME FS 3/< SIS Bs NE is Sie Sie HE SiS ae ON Sie ie Me Oke Sie ake aie Sie oie oie me ate She Dic aie om mie ose oe Duc Oie San Spe eae eae ores eee 


ae: oS! SINI V2 oe teeter a 


bo ab te al ‘ ‘ dy ale be sto ale ale ale We ste ae id ate ale ate ale ale ale U te ate al > 4 a! 
CF tel 


s'2 ate ale 32 st 5% s¥ ate ale abe abe ate ale wie wisn o hp deals « ¢ e ate ate wfeate ale ate ste ate ale ate ale ale ule ale ate ale 
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ewe aly 5'% id se te 
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sysinit2: proc options (main); 
Zinclude “sysdef.pli’s 
“replace 
EVC_TYPF by “80°d43 
/* main */ 
call define cluster (’@992°b4); /* must be called 
prior to crea ties 
eve’s */ 
[re EEE USER HEE SE / 
call create evc (TRACK_IN):$ 
call create eve (TRACK OUT); 
call create evs (MISSILE ORDER IN); 
call create _ eve (MISSILE ORDER OUT); 
[J SYSTEM RR / 
call create _evc (FRB READ); 


call create evc (FRB WFITE)$ 
call create sea (ERE WRITE REQUEST); 


Lo? 


/* distrib. map called after eventcounts nave 
been created */ 


Caliedistammunon man (8V0 TYPE TRACK OUT, 94035 °b4); 
/* local and remote a: of THACK IN needed */ 
call CastmeGionm nap ihVC TYPE, MISSILE ORDER_IN, 

“9R03 ba); 
/* local and remote copy of MISSILE OPDEF IN needed */ 
call create proc (’fc°b4, “8@°b4, 
“7957 “b4, “PBA D4, “OC5f’ b4, 
“M439°D4, “ABBA’b4, “GBUG’ b4); 
call await (’fe’b4, °7001°b4);3 


end sysinite, 


ee rete Cn oie Dc O,e Bem Des F,% Bee Tym Oh Bgh Dye PS Aes Sem 24m Oee Ott OAS Bae Bye Oye DA OMe ByS Dym De Bee Dee Bae Bre MAN Due MK Oye AS ye BSH Se BE ope ops ME MS BLS MK ee BS Oem Bm Wye Bye Sue TS OS 
Nes ages Ne ce ce ie oe Coney Coe ee Sse ok Sass If 3 OK Se 2 OOK os Se fc SR Soe SM Oe OOS 97 Se oc oie Sk ste sie sie sic sic ste ste 
7g NI3#10.DCL file ne aes 
a a nie Noe Pr Sic acute Sine one Eh SRS DE. Soa ie HE SC oe oe Sie Sek B16 OP De De Spe NS Dae ae ak Se BS MIS Dae Due See Dp Bye SH MS BSS HS ME IS Be Se 
replace 
* 1/0 d 
has port, addresses 


These values are specific to the use of the INTERLAN 
NI3@1?@ MULTIBUS to ETHERNET interface board. Any change 
to the I/O port address of “42d” hex (done so with a DIP 
Switch) will reauire achange to these addresses to 
reflect that change. 


x4 Vs 
command register by “be b4, 
command status register lye ik eee 
GransmitGeaaba resister Dye D4, 
interrupt status reg Dye: 4, 
interrupt erable register by “b@’h4, 
high byte connt reg by “be b4, 
low byte count reg Dyoeebd: ba, 


Vendors! /O. port addresses */ 


jae er minimenabbe status register values */ 


disable nid¢@14 interrupts by “90°b4, 
nida1ig@_intrpts disabled by °0°b4, 
receive _block_available by “Gh bA, 
transmit dma_done by °@6°d4, 
receive dma done . by °87°b4, 


/* end register values */ 


fe Command Function Codes */ 

module interface loopback by “1° b4, 

internal loopback by “A2"b4, 

clear loopback by “03 b4, 

go offline by °@8'bd4, 

zo online bye Com b4e 

onboard diagnostic by Oa b4, 

clr_insert_source by %e b4, 

load_transmit_data by “28°hb4, 

loai_and_send by 29 v4, 

load _ group addresses ny) 2a nee 

reset DY Of 164. 
fe end Command Function Codes oy 
Dt HE HERE NOME AS HL IKE IS MEAL ALC AS AS SHE AK BK IS AT HE IS IS FE BS AL AE YS AC IC SE AE BK IS OK AS AE AS BS OE YS OE OK AE BE IS HS IS ALAS OE KK AS OS AS AE 
sic sie slesk sicate ac she ste ole sic sleiske sie sesieiste sie ste sik sie ic sie nie Me aie siege sie sa Sx se sk oc SC ce Sre s.c coc oe in he cia nye cpeeri cha ,c ome 
He SYSDEV.PLI file ne BC 


HE AE LS SEK ME DK BE AS OF DES SE FE SHE IK BE 94S SIE SIS SHE HE OE Sle aie ae OK ale AE TS HE HE NS DHE SK DIE IE NS EDL AS TENE AEC AE IS BYE AE IS BEBE AE AE 9K OK 2K 2 


sysdev: procedures 


/* Date: 1 SEPTEMBER 1984 
Programner: David J. BREWER 


Module Function: To serve as the Ethernet Communication 
Controller Board (NI3@10) device 
haniler. This process is scheduled 
under MCORTEX and consumes &thernet 
Reauests Packets (ERP) generated by 
the SYSTEMSIO routine in WV ebee once 
It also processes any inbound packets 
hy analyzire the packet contents and 
making the aporopriate MCORTEX calls. 


replace 
eve type by “@@°b4, 
ero DlOcK len by 22, 
erb Poleeley len mi by 19, 
im fender Demo (64s 


Zincludve “sysdef.pli’; 
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DFCLARE 


1 erb(f:erb_block_len_m1) based (block gtr), 
2 command bit as 
2 type name bit 
2name value bit ( 
2 remote_addr bit ( 


DECLARE 
il transmit data block based (xmit_ptr), 


2 destination address a 
ba tates) 
2 destination address b 
inte lhe 
Cec naion sadaress —¢ 
bate a): 
Zeca ion address. d 
Dice); 
2 destination address e 
lol fe ely 
Peuestination address of 
te WS) S 
SeSoolinece (address a 
Dit 2 
2 source _address bd 
nate < S.) 5 
2 SOUEGeradaress C 
ba tetS.), 
EO ce maga ress ad 
pl Fie 
2 source address e 
joe he 
pounce address fF 
Bint 2) 
Bae eet Ned 1 a 
Os Es 
ey pest 1e ld eb 
stg ish 
gedit a 46) bi teGs ).. 


1 receive data block based (recv_ptr), 


2 frame_status leakage 

2 null byte bit (8) , 
2 frame_length_lsb eG at Si), 
2 frame length _msb oie WS ie 
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cre upper middlesbyte bi 
cre lower widdlewh ea ban 


2 destination address a bit (8) , 
2 destination addressmom pit > ia: 
2 destination address c bit (8) , 
2 destination address dame urt (om, 
2 destination adiress e bit (3) , 
2 destination _adiress f bit (8) , 
2 source address a batts Gena 
2 source address b bint ogee. 
2 source address c ba tee) ee 
2 source_address d Di taper a, 
2 source address e Dieter) ae, 
2 source_address f bite 
2 type field a ply 1G) ss 
2 type field b gah ws} 
2 data(l4é) Cale eles.) ee 
2 Crcunc os lee, MS 
2 cS, 
2 (8) 

2 (8 ) 


Cre mics 


<= 


Dat 


(xmit ptr, Trev DUP, OigiclammnT ponte 
index fixed bin (15), 
(addr e, addr f) bit (8), 


address file, 


copy ie register bit (8), 


(cluster addr,erh writegvamie.s) soit Cie). 


(j,k) fixed bin (15), 
Pee) y dive mb ites je 
write io port entry ‘bit (@&), bit (8)), 


read io_port entry (bit) (oS) beet). 
lnitiallze “cpu interriens entry, 
enable cpn_interrupts entry, 
disable cpu_interrupts entry 


Write bar entry (bit Gio, 


es end module listing */ 


Zreplace 


/* codes specific to the Intel 8259a Programmable 
Interrupt Controller (PIC) sad 


note that */ 
icw2,icw4,*/ 


- and ocw asf 
fuse same */ 


POTteo lars 2 


/* note: 


icw 


icwl DOrt address 
icw2 port_address 
icw4 port_address 
ocw_port_address 


==>) foi tale canon 
Comune 
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Dy 
by 
by 
by 


“c@° b4, 
"C2. nae 
“C2. ba: 
"C2 4, 


word 


ocW ==> operational 
comman4d 
word as / 


icwl vedi e 4 


/* single PIC configuration, edge 
triggered input ef 


icw2 by °40 b4, 


J~ most Significant bits of vectorineg 
byres 10n aw @nterrupt 5, 
the effective address will be 
(iewe + interrupt #) * 4 which 
will be (4@ hex + 5) * 4 = 


114 hex aay 
iow4 by “Of ’d4, 
/*® automatic end of interrupt 
and buffered mode/master ty! 
ocwl by “Sf °b43 
Poaunmaskeamterrupnt 4 {bit 4), i /, 
Pom inverrupt 5 (bit 5). and sa 4 


uae tema tuNo),mask dll others */ 


/* end 8259a codes */ 


/* tnclnde constants specific to the NIGO1G 
board xe / 


Zinclude °ni3@1%.dcl’ 


LOS 


Se aleals als ste ale ale ale ate ale al ale xlo al- ve ale ale = ale abe a& Saale ats als ale s‘¢ a ate abe KK ate ale ats ales ale ale aie ale ale a's ate ale xs eale als nie ale ale ste ale ale ale We ate ate Se 
A ed teled a Ct te “| "> 4" CT hed uy My a> 7" Far Oy Oy 9, ~~ @ o~ Cd lo oy cd ed Gym 94% Myr 2% My hed Cd be a> Vy 7 ay 24° 7~ Cd be bd ad ae Le Dead % of ~~ “~~ +~ ry ” a be + Ed id “~~ “~\ ar td ~~ id Dd Cd tae 


/** Main Pody */ 


call write io port(interrupt enable register, 
disable ni3@18_ interrupts); 
call initialize pic; 
call initial’ zeceoue) 0 Cen murs, 
call read_io port (command status register,reg value); 
call perform command (reset); 


call program grouv_ addresses; 
/* assignments to the source and destination address 
fields that will not change */ 


call perform_command ‘clr_insert_ source): 
/* NIS@1IT performance Ne menmteameets in This anode a7; 


unspec’block_ptr) = block_ptr_value; 


unspec(rcv_ptr) = rev_ptr_value; 
unspec(xmit ptr) = xmit_ptr value; 


/* make one time assignments to transmit data block */ 


“OS Wass 
“G6°D43 


transmit _data_block.destination_address a 
transmit data block.destination address b 
transmit data block.destination address c “OA “b4; 
transmit data block.destination address d “68 043 
transmit data block. source address _a °O3°D43 
transmit data _block.source address b “OO b4; 
transmit data block.source address ¢ “00°43 
transmit data block.source address d “OO "D435 


sll HG aon 


How uot 


/* get the local cluster address —- file was 
opened in proc program group addresses <7 


pet file (address) list (addr_e, addr f); 
transmit data block.source _address_ e addr _e» 
transmit data block.sovrce address f adar f+ 


oi! 


cluster_addr = addr_e !' addr fs 

put skip (2) edit (7*** CLUSTFR °,cluster_addr, 
“ Initialyzation Complete = @ 
(col (1S east 4) a); 

i = “9601°»d4; 

call perform command (go online): 


/* at this point copy_ie_reg = PBA , but 


ie reg on NI30190 is actually disabled */ 
call disable cpu _ interrupts; 
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morn = | to infinity: 


/* note: interrupt not allowed during a 
Cali tomcostek primitive elf 


erb write valve = read(FRB WRITE); 
~/* In the MXTRACE version of the &TOS 
all primitive calls clear and 
set interrunvts (diagnostic message 
routines), so the NI301@ interrupts 
must be disabled on entry to MXTRACE *¥/ 
do while (erb_ write value < i); 
/* busy waiting */ 
erb write value = read(EPB_WRITE); 
Cop te ererianer-receive block available; 
call write io port(interrupt_enable_register, 
ReGelVemoeloG @maval laole) ; 
call enable _cpu_interruptss 
/* if a packet has been received,this 
is when an interrupt may occur —- can 
see that outbound packets are always 
favored. ie] 
do j = 1 to 10033 
/* interrupt window for packets received */ 
Bind yee7c ec Om 0/7 
Ca lieGusanlecucpu interrupts: 
if (copy_ie_register = receive dma_done) then 
dO; 
/* receive DMA operation started, so let 
feigndns Wo / 
cole table Cpu interrupts ; 
do while (copy_ie_register=receive dma_done); 
ends 
call disable _cpu_interrupts:; 
end yee sie t.  7/ 
COO) eee ohne r =e a1 Sale nor le ointerruptss 
call write_io _port(interrupt enable register, 
disable ni3@1@ interrupts); 


i eendeman hk in it, SO process it */ 
/* no external interrupts (RBA) until 

the ERP is consumed and the packet 

gets sent ney! 
index = moi((fixed(i) - 1), erb_block len); 

J ocmeormiceon parameter to fixed fen. */ 
transmit data block.data(1) = erb(index).command; 
transmit data _block.data(2) = erbt(index).type_ name; 
transmit data block.data(3) = 

substr(erb(index).name value, 
9,8); 


197 


transmit data _block.data(4) = 
subs er 
es 
transmit data block de@stiaetion saarecs sen 
substr(erb(index). remote addr, 1,8); 
transmit data _block.destination _address f = 
~substrierbiindex).remote addr, 9,8)}3 


call advance (ERB READ): /* caution here !!!! 
an ADVANCE will result in a 
Call to VPSSCHEDULER,. whren 
will set CPU interrupts on exit. 
It’s the reason NI3010 interrupts 
are disabled first in the 
Do While loop ahove. */ 


/* packet ready to g0, so send it */ 

Gall transmivapaemet. 

/* copy_ie_register = RRA , but not actual register */ 
call disable cpu_interrupts: 


/* setting up for next FRP consumption */ 
{ = edd2at tle. ieeeecoOd oben, 


end; * qo forever */ 


/* end main body */ 


/ ste sis ste she ste siz ste sic ate ste sit ste siz ole sic ofc sie ste ate ste sic oe Sie sic sie Siz ote sre sleiste Stes ataeg e ocy ene are, cie iS cis ee ore teapots ye 2 (00e |e 2] cies, tee y 
° e ° e e s @ 
Iinltvielize. wie. procedures 


write io port entry (hite(] emote: 


call write_io port (icwl oortmaddpecse teu. 
call write _io port (icw2 port _address,icw2); 
call write io port (icwt port _address,icw4); 
call write_io port (ocw_port_address,ocwl); 


Cnc pin istied. 1 7e suc. 


pas se ate ate ste s'¢ abe abe ato ade als af e te als Ja she de ole we ale ate eo ale ale se whe ate 12 ste ada ts ate ate ste Ve abe ate abe whe ate ale ale ote ale ate ate al cle ale als 
/* ed 4,8 “~ Pan gr gh ym Om gy gh ye Ps x<: a" ses “~* 3,8 rs as ome 28 2 eS ss = ee ma ee HS ee nd 38 Pas aoe oy AS is <> ea Pee oyu ry oy" > as oy* 5 “\* 28 Pe 3,8 Pa ad tad bel oc Ce eed lied fe Vy 


ites 


perform command: procedure (command); 


DECLARE 
Comnand hit (8) , 
reg value bit (8) , 
srf bit ‘8) , 
wet remmomvemnMmentar bIt (fim bit (8) ), 
Wedd MMOD Omummmemirye (Dit (ele bit (8) )s 


/* end declarations */ 


srf = “@°b4$3 
call write_io port (command_register,command!; 
do while ((srf & °81°b4) = °9@°b4); 
eer oadwloOmvontum InlLerruptsstatus ree, srf)s 
emg. “* do while */ 
call read_io port (command _status_register, reg value); 
if {reg value > °@1°bd4) then 
do; 
aaoano te Couto omonmoUCCKSSuwith Retries) */ 


put skip edit (°*** RTFERNET Board Failure ***7} 
(col (25) ,a); 

/* when this occurs, run the diagnostic 
routine T3@10/Cx, where x is the 
current cluster number */ 

Stop; 
eden 7s ltd “7 


end perform command; 


t) 4 ‘ i] 4 ) 1) 4 ‘ r) ‘ + ‘ 1 e ' 
if we Se Ss SAS gee eg Pag PASE RS Peres Da age B ar Reh dba dp Marae eae Kara: Cibek ara dp habs Gre geb dip ae edie A 4p RS HAPS ara PS CAPRA Sp Tapa Na ae 8 Ge ht ie AS Se 


Preansmit packet: procedure externa): 


DECLARE 
srf bit (8) ’ 
reg value bit (8) , 


Mele To uport entry ‘bit (8) , bit (8) ), 
Meat Ombenm entry —(bituGa) pit (8) ), 
QO Gow Win waives emery. 
Tisavle we pura ternripts SrtGay. 


WTA Te wind memt ny (bit (16) ) > 


Wiehe, 


/* pegsin */ 


Sri. == ue. 

call write har (xmit_ptr_value); 

call write io port(hieh byte court teeny 4 oa 

call write io vort(low byte count rez, “3c"b4); 

copy_ie_ register = transmit dma_done; 

call write io port(interrupt enable register, 
transmit _dma_ done); 

call enable cpu_interrupts; 


do while (copy_ie_register = transmit dma _jone); 
end; /* loop until the interrupt handler 

takes care of the T9D interrupt - 

it sets copy_ie register = ABA */ 


call perform_commard (load_and_ send); 


end transnit_packet:; 


/? Die MEME He BS NE NE DE HS NE SS OE Sik SK Se Si Me Me Se Se Ne gle ae She aie SA Ns TE HS SK SiG ae Oe Mas ne ae Dee re oye Oh Sue A um eye Oe Oe OLS ye nec vm Op ee Ve 


HL interrupt handler: procedure external; 


/* This routine is called from the low level 
8986 assembly languace interruot routine */ 


DECLARF 


write io port entry (bit (9) bit eee 
read jo port entry (bit 67s) eyo cer 
oi elicte Lema nen she bin clps2 00 LS entry. 
disable cpu_interrupts en tae 
write bar entry (bit{16)); 


/* hegin a / 


call write _in_vort(interrupt erable rezister, 
disable —ni3e1g _interruptsi3 


if (copy ie register = receive block available) 
then do; 


call write_bar (rev ptr value); 
call write io port(high byte count _reg, 5°04); 
call write io port(low_byt® count_reg, “f2°b4)3 


/*®* iritiate rereive NMA */ 


copy_ie register = rereive dma done; 
call write io _port{interrupt enable resto. 


CAG 


receive dma_done); 


end; S| I ay: 
emese 
if (copy ie register = receive dma done) then 
19: 
Cal UOC esS Ss packels 
COPYmC nema LODE =e rece mve  hlock available; 
call write _ io _port(interrupt_enable_register, 
receive block_available); 
end e/ eee et ene do / 


ase 

if (copy_ie_register = transmit dma_done) 

then dos 
copy _ie_ register = receive block available; 
a loge enverrupls aisanled on entry */ 

end; see e nad oO * / 
end HL irterrupt handler; 

JAR BE AE BS BS ME BS Bee OE BIE ETE SIE IE BE BE IE BIE BIE DIE BE NEE SIE TE ERE HE FES IS TE BY BE OE HEE REE TS NE TE IE TE EE HATS OY TE CS TS / 


process packet: procedure; 
DFCLAR® 


iocal eve vale nit (16), 
eee pir DoOUnLer, 
remote evc value bit (16) based (data_ptr); 


if (receive data _block.data(1) = eve_type) then 
do; 
data ptr = addr(receive sata block.data(S)); 


/* remote eve value now has a value */ 


f ary e 


local eve value = read(receive data block .data‘e)); 
do while (local evc_valve ¢“ remote _evc_value); 


call advance (receive data block.iata(2)); 
local eve_value = add2bit16{local eve value, 
“7001 74); 


= lols 

call disable cpu_interrupts; 

/* this must he done due to setting of 
cpu interrupts by calls to MCORTEX“s 
VPSSCEEDULFR via ADVANCE */ 
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end: 77 11a 7 
/* only type packet in this limited inplemn. */ 


end Process. pdGraain. 


i MERE FERS HE AK AK 2 HK NT AL ESI AE BS EAT AE AS BK RRS A YE SIE OS NS SIS Bis OE TE NE AS HE SN AE GS NS AS SIC SIS IRS SAS OIE RS HE OS AS TK OS ES OS sh 


program group addresses: procedures 
DECLAFE 


1 group addr{49) based (group ptr), 


< NC Ot Oe ies a 
Vogt en. 

e°me 2roupe field bp 
Pi tee: 

2 MC Prout Velen 
bitte ier 

& NEWT oun. 1 el dmes 
“bit (8), 

ce heuer Goueet 2.el dae 
bite(3)) 

2 MC Ope clan 
bit (8)5 


DECLARE 


(2STroOupmDot re oe mon tee 
(field_e, field_f) bit (8), 
bit 8 groups bit (8) based (p), 
(i,num groups,@roups times 6) fixed bin (7)3 
unspec(group ptr) = xmit_ptr_values 

open file (address) stream inputs 

eet file (address) list (n»m_eroups): 


do i =i1 to 1um_groupss 
group addr(i).mc_zroup_field_a = “@3°b43 
proup addr(i).mc groun_field » = °40°b4:; 
group addr(i).mc_ group field c = “20°04; 
group _addr(i).mc_eroup_field_d- = °90°b4; 
get file (address) list (fieli_e,field f); 
group adir(i).mc_group_ field _e = field _e3 
group addr(i).mc_grovp_field_ f = field f; 


end; /* “clio ae 7 
call disabie cpu_fnterrupies 


ZOE 


call write bar (xmit ptr value); 

Gall write io vort(hiehn byte “count ree, “6°b4%); 

proups times 6 = 6 * num _froupss 

p = addr (groups times 6)3 

Pelewry le 1ompornt Wow byte Count ree, bit S srouns): 

Copy ie register = transmit dmaddones 

call write io _port(interrunt enable register, 

transmit dma done); 

Call enable cpu_interrupts: 

do while (copvy_ie register = transmit _dma_ done); 

end; (OOD smithiae ne internupt handler 
tameseGenmes ct the TDE interrupt. — 
geese Samer y IE RFQ = Rey <7 


call perform_command(load_groun_addresses)3 


Smomonroeram #£roup addresses: 


ute ale ste ate ale als ale s'¢ ate ate ste ate ate ale ale als aly als ale ate Yess ahs ate ale ve ale ye al, ste ste ve whe ats ale ate ale ah ate ed ate ales Se ule Se ale ale afe ate ale ale ale ate 3s ale als of. 
De lict tadica bade Thc Told Thick lea, belied bed haiitad badd (pied bied bait big hated bila! biled bata nd ae Fgh gh gh Fgh Fgh a gh Fgh oe aah Gye oS AYR Gyr Fgh Gyr Gr Fd aGh Gyr Sgr Pgs FyN BGs wgh Hy- Fyre Gye Yr SES Hye age Myr MYR F > Aye Oy 


end; /* system device handler and packet processor */ 
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Pt 
ele we wile gle ale ale se als wtsate xe whe So ales ote ole ate ale als ole ale ale abeale ols ate ole alle ale ale x2 ve x2 ale ale ale se v< ¥ we 
Sd te Ld bed od ted “~~ cd i a. be [tad -,% Re 4 Che Cd Io “~> e,* Cbd cdl te > aye oy cd tal ba tee “~~ “a ye - oy 7\* *~ Cd td Cd be i” y * #y* > 3< * a” a* ee A 


ASMROUT. AGC aa 


<8 
cay 


FESS: 


€ 


a! 


Ss 
‘ 


* 


extrn hi interruptyhagdier | ein 


Du ode 
public 
jeyby te ial 
Dal De 
public 
DUDE 


Wri Ce a 0 plo mer 
read 10 port 

Wri el tern 
initlalizegcoueinterruprs 
enable Cougeeterr yes 
disable cpu_interrupts 


—— 


a abe sles 


Cd ted r Cd Dad id tod ~~ “~~ 


Yo ate a? ante abe ate abs ale ats ole ale te ys wh 
* . Cd bee eo, ee 7,2 ~ 


oy “> e\> “; “_ “4 a , *\* 


. 


sé oes 


bo af. . = 
BE AE SE AE AS SS TE AE NEE SIS IS SIS MNS OIE BE BIE SIS EIS AE SSE OHS BIE AIS TNC Oe NE OI OIE AS AI SIE IS YEAS BYE BE EE IE AS BIS Ne TIC AIT TSE OE AE BIS OC AE 


e 1, (rs Py 1, we a! te af we ate whe ale ale aly U U wte we ale we ale ale a. ) 9 ‘ te te ate als al le lo mie ot o ate ate ate ate als ate at 
9S KAS HK AE OK ste ate as ate cle HE Se NESE NE HEL AC HS ALK CONE DERE se Mesh oe ste ok ae ate sie oie vie aie ste Sie ole otk ste te gic ote ste one Sie Sic SHE Ste oie Sic mace ee 


Wid Vest oO S001 ts. 


> Parameter Passing Specification: 


’ entry exit 
; 
; parameter 1 <vort address> Cuncrangei> 
: 
; parameter @2 €value to be outputted> <unchanged> 
’ 
: 
dse2 
boOrGlaqaress rb 1 
CsSee 
push bx! vush sif pnst dx! push ax 
mov si, fbx] 
mov al, [sil 
mov Dportmaddress all 
WOW pS? ioe | 
moe cll, Sat] 
nov = dl,~ = port sdidawecs 
moy dh, @*h 
Oe. fakes ail 
pop ax! pop ax! pop si! pop bx 
mean 
FP MEE AEE AS BE HE IE SAE I ACHE DE SE AE HE BC HK BE AL AE NE DE DS NE BE BE I-A NEAT RE NC HS BK AE IS CIE AS IK CIC IC OIE AE AT HE AE IK NC BIE AC AE 2s 346 
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Meda 10 port: 


>; Parameter Passing Specification 

; 

; entry exit 

’ 

; parameter 1 <port address> Cunchanged > 

; parameter 2 <meaningless> <register value> 
cseg 


push bx! push si! push dx! push ex 
mov si, [bx] 

Mew al, (ant 

MOV —PpOrteada@ress, al 

move wiSoeac | Ox | 

DOV eC le pOrteadaress 

mov adh, 42h 

in BUN Mel>.< 

Ov eseal all 

POpmmoreespopeax! pop Si! pop bx: 
ret 


@ ate ate ale ate ate ate «te ale als « fe ale a s‘¢ als ale we sie 3'< ale ate Je Seale Se ale ate s'e ate ate ale s'¢ s'¢ ale ate aly ale ate ale 5's ste ste steste ste ate sig ate ste te ste ste ste ste ste ste ste ote sie ste 5 'c 3's ale vte 


meate Dar: 


Paraneter Passing Specification 


parameter 1 (and only): the adiress of the data block to hte 
EradisomuebLivec Or received. 


2e 28 we 280 


dsee 

2 Welle lel eau A”b9h 
In eel ovens eau @bah 
1 bar epor t equ &Abdh 
ted) Oe monet e rb i 
Lemp es rw 1 
cseg 


This module computes a 24 bit address froma $2 pit 
address - actually it’s a combination of the ES register 
and the I[P passed via a parameter list. 


2e¢ w2e we 


CIS peemmoushmadt! OuSh Gl push es! push dx! push si 


mov 4x, ABVWBh ; shared memory segmert 
mov es, ax 


mov temp es ..es 
mov ax, es 
MOV. S ieee oe 
mov aX es oat 
MON. Cole eee 
Shr “ie. ve! 
mov Temple by te; dl 
NOY 90S aeevemprc s 
MOV rec le 4 
Sik dx ck 
add dv cx 
jnc no add 

eilel(oie iL & inc “Vemivmemny i. 

no add: Out 2 bar aor tee 
mov al, ah 
OulL. hivar port wea 
mov al, temp _e€ byte 
Out, Ebarepor . jaat 
pop si! pop dx! pop es! pon cx! pop ax!) pep au 
rey 


= aw 2S SS SS Se an a ee Se ee ie ee Se eee Se Se ee es Se Se ee ee ee ee ee ce ee ee ee ee ee eee eee 


initialize cpu_interrupts: 


; Module Interface Svsertication- 
’ Caller: Ethertest(PL/I) Procedure 
’ Parameters: NONE 


initmodule cseg common 
org 114h 
aT on Ot Sere rw 1 
int5 Se€enenteuw es 


cseg 

oush bx 

push ax 

mov bx, offset interrupt handler 
WON wee 12: 

push ds 

mov ds, ax 

MOV FOS +100 Onon ) oie peor 

mov) Umeacs 

mov dStiNtsa seement ao 


pop ds 
pop ax 
DGD Ux 
S Pa 


£06 


ret 


—_——<— oe ee ee ee ee ee ee eee ee es ee ee es ee es ee es ee es ei ee eee eee -—-— oa 


smeagle cCpu_interrupts:; 


milogutie interface Specification: 


; Vallee n Ethertest(PL/I) Procedure 
’ Parameters: NONE 

Stal 

ret 


disable cpu interrupts: 


WwicouLe Interface Specification: 


; Callen. Ethertest(PL/I) Procedure 
; Parameters: none 

eat 

ret 


mirerrupt handler: 


> IP, CS, and flags are already on stack 
+ save all other registers 


Pisa x 

DwsS her ox 

US he sce xX 

push dx 

push si 

push di 

push bp 

pushy ds 

push es 

caliphiainterrupt handler ; high level source 

; routine 
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; restore rezisters 


pop es 
poo 15 
poo bp 
pop dai 
pov $i 
DOD ax 
pop cx 
pop bx 
pop ax 
sti 

iret 


end 
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AP Pes 
NI3Q19 DIAGNOSTIC CODF 

Poe ev ehtimoOteane se nernel =aoarc failure indication by 
the NI$@1@ Driver, the full range of NI38019 operations can 
be tested with this routine. Any charges to the port 
addresses of the NI4@14 will have to be reflected in tre 
NiS@1¢.DCL file contained in Appendix K. This code will elso 
have to be recompiled and relinked. 

This routine is invoked with the CP/M-86 transient 
comnand: T3017/Cx, where x is the cluster to be tested. For 
emample, faviv/Ci tests the NIS@1@ at Cluster 1. This 
diagnostic routine uses the factory default Ethernet 
physical address, so the boards should not he swapped 
between clusters without taking note of its Days Vea | 
peewee soe ThE NI6G1G Driver doés not have this restrictior. 
ites tile ASMROUT.AS86 is linked with the module tc allow 
meecess to hariware port addresses ard to allow a low ievel 
Ssoembly latneiwaese interrupt handler to call a PL/I-#5 


meeerrupt handler. The LINKSG input option files are also 


included in this appendix. 


se ate ste sie ste a's ve ste ste ste ale ste ate s'¢ ole ste alu s'< ste ste ate g's ats s‘¢ Od sie we s!- gle s'e Ye ¥< s'¢ 3 ac 3'< we ste ate sia ate ale als xe 5 a4 s'23' wle ate ais vig se ate ote ate ale ale ats ale 5< 
= 
1 + 5 ‘ oy> ’ > Cd bes oy ayy ey 4 id] a> 1% A * r Cd be e* 7% %, —° “1 od he *;\ *~ 1 “4 [ted #, bh = id be Cd bed ~ Sd tad bd bed 7,y* ~~ > tes ~~ ae cod ted cd bed Cd td ct el Cod bd > cd Ded *\~ > oy “4 bd te as 


. ~! td toe ~ ‘a o ‘4! U Foe al é i t e le 8 Py 4 cH ie 
HE NE DS IE ME HC Oe BIC Be ONS ae SH She 9s SS she Hk SCO Bo aise: AE DE OC ies oe oye Bima p Srcie a mas ote oem oxs ere Srnec pieaLe rose ots Giaccre ce geee tees aes iodo to 
ale aly Q ® OS abe eta ale 
~ aye i @ o,* ~ 
no T3010/C1.INP LINK SG inpiteoot lone: Ee oe 
¢, c eo ate r ‘ OF Er erat ‘ ADP Site 
TIES ASRS DOS HE BIg HE SS SES HE NE Sie OK SESS Sie SHS SK SHS DLE S596 SE SIS SIS AE ME OS die Sik Be ose De Dew ym be oat ace oe Socal oye oye ie Ve Tim ie oie amie eee ce cee 


tovi oye 
boardtst[code lab[439]} ,datafab[aag] ,m(@} ,ad (22) 1] .manl alia 
asmrout 


ate slo ata sts se als ats sz ate ale ate ale alle ate ale ate ate ale aty als ate ate als als als als ale ste ale ale als alk als ofp 3: at als s'¢ we ale ats ale ale ate vie ale als ole ate vate ale ate ale ates ate ale alse ate ate ol 
oy od bel cd bd “> a* *~ > hed Cd fo “> 7," oa” *,\™ bd Tied ~~ 4,> ”~™ ~~» Cd be Cd be *\~ Cd Tad *\~ ~~ od bed bd bed od ed tad | *\~ *,> od ted 7y~ bd to La bel thee > ~~ (Ying “_ Sd te o,* oro,;> *~ *y~ ** Cd td ** bd td Cd bed > Od be bad Ded Cd bed od ted Cd teed or” o\> “> “cr 

ave deals ate ale te ale ate we ate fe tents ale ale ie aly a! ale oe ate ale Ne to whe ale ale ai- xe fo ale ats aly als gfe als gle ates ale ste uty ate sie ats © * mie ate uta ate ale ale ale ale ats 
*K Pe 4 hf bed ct Yd “> a a Cd ad xs bad Dd Ld Dale Nd as Ld bed od Dd Cd *; ‘ed yy 3f +84 +, xs od fee 7, 3 3,8 *,* “\~ 38 38 (Tee 38 Ld hl 38 yr 38 { hs cd tel 3% Cd ted Pad as o,* Ld +,” Cd be ,* a *, 35 > *\~ “~ ~~ “> a8 “;* 


HE TSZ1@/C2Z0INP LINKSG input ontiome! 1c He HE 3 


ate slo ate ale ale ate ate gle ale ota ale ate ols at. ale als ale vip ye ale ale ste ats Se ate vie sig 3‘¢ ads ate ste als s'¢ ale ate se vie le ate ale ale ate ob als sto 3% a'e vte ate ote ate ots gt. ste le s'¢ ate slo ate ah 
7 *~ Cd tald bellicd tadited Pali Ted ped Ld yr FY Myr Sar SM Eh Pgh SG Sgr Sgr Sgr Sue gh Sgr 94% Cd tes er Or gh Oh He “> o> Myr gh Or 24> ym y™ 7 gr 44° bd Ded ** “1° > Oem Mgr vg™ 24> -,* my a" 7 wet gh eg gh #,* %y> +.” 7a" 


[o0Ee Ge 
boardtst[code[ab[439]] ,datalanfaga! ,m{(a} .ad(a2]) map ial 
asmrout 


HE BS ME SS DS IS NE SHE SS TE NE ME DS SESE BIS ONS Ok She SM aie Ste Ste oe ste ahs aie Ie ois gis Se Ste mie Sik Sic Sic Sik OI Sie Dm ms Sim AC OLS 5,6 Sie ys Bim cis oe oys 2pm es eee 
AE NC EAS AT PIE IE AE HE AE AE AS AE AE AE AE AS HE AE SH NE AK SCAT EE AE NE MC AC HC AE DE AC ACNE IL HE SIC HE FS HE AE DYE IC AE BE AS AE IE AC HIE DIE BIE AIS AK AE AS oh 2 
arian TESTS@10.DAT file 7 2 
REDE Hee Hee ae Oe see Sis oe ak oe ste she Siz Ste Me aie sla sie ste he Me we ate ste me sie me she Se ec ee me oe cc oi oClSa sare sie ae Suet occ Oe Cro tie cee 


This is a highly relieble packet switching implementation! 


Yo fe ote ale als ots sly ale ate gle at eats ale we ale to ale ale ale ale ats taws wte eal als ale ate ale fe als Je ale al je ote ale ate ats ote als gle als ale Sa ate ats aie ates’ 
3,8 C¢ x< Om OP AS oe b> 4 “4% pes 28 = b Rs 3 ayy UN of age 4° ae “9 26 ae “ys 4 38 as “> Pe + x 7 as as *- x ays o> 36 a8 x Saye ys of > Ps 38 Pie a as 3s “> 3,6 Ps as 
ate ale ate nts ote ale ale als se ate ale ale ats xt. ate ste ale ste ates ale ale ats ste ate vle als Veale se als als whe als ale 9°¢ ale ate als s'¢ ale aly ve aly s's ata ate te xle ale obs gla slo ata ate ots 4 wt oho bd ate 
By yD Sy gh Cyr Gyd ES Oye Gyr 24% OAS Oy% Or 2, 2 > Og Ayr yh Oye Bye Er GYD PEM Oye HG YS gr aGh SYS Oso ys Sy GS gd Pe age ayd wad Ogh Hoe Ags od Hg Gas Oye OAS HAS Hy S gh 7g Ms Mgr ogy gh 2g) og 2g 2% ME oe e™ 


ne NI3Q1@ DIAGNOSTIC ROUTINE Bi 


ale als ale we =; ad x = Ja ale ate ale 3s t2 ale ste ss ate ats als als te als als s& we ste 5‘ ate ade s*c abe ate s'< os s‘¢ whe ate ate ale ata nt abe ste ate 2% s ale abe ole whe ale ale ale ale s‘¢ 3° ste ats wts 
y+ ~ ar od ta ~~ 35 7 + *\~ a. “~* 4 hf ys c Cd ted dt bed od ed \~ 4 *,~ Cd be * “> +e ' od hed e,* f" ~ o,\* ~ . toed id be “~ > 7" ool ad +> ~ > #_> #,* ~~ “> +,* od bel “> “> oy > ~~ (he “ Cd bed Cd ted 


boardtst: procedure options (main); : 


/* Date: 14 FEB 1984 
Programmer: David J. Brewer 


Module Fume i) ome This module, and associated 
submodules, are designed to fully diagnose the 
NI3A12 Multibdus to #thernet Commmunications 
Controller. If at any time, during the teveloortent 
of software or hardware by a user/imolementor of 
"CCB software a fault rs suspected, this 
comprehensive diagnostic routine can be executed 
under CP/M - &6 by invoking the command module 
(ij.e., transient command) °T301@/Cx’, where x 
represents the cluster location. 


xf 
DECLAR® 
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1 transmit data block based(trans blx ptr), 


2 destination address a 


> Sasa) fieredein (7), 
Pes assigned | Syeeedestiration address b 
[x by ——--— 5 / freed (7), 
es XFROX */ 2 destination address c 
7% a. / fired bin (7), 

Pec eStindt Homma 1a ress 4 
IE Peat / fi vege (7) 
/* assigned | */ 2 destination_adiress ¢ 
/% by —--->%/ fixedebia. (7), 
Pe INTERLAN | */ 2 destination address f 


Gieced Han -. 7), 
ee Pew! Veda 
fiioecdemnene (| 7) 
2 type field b 
fivea el ne| 
2 data_bytes (1598 
Ciiaeaec 


te 


1 receive _data_block hase? (rec_blk ptr), 


2 ~* 


~~ = 


= ) = = ~~ = 


iy Dem edad 

bey Diemei? © Cun0 

data _bytes (1526) 
CYC ism 


crc_upnver_middle byte 
crc_lower middle byte 


Gmc lS b> 


Testor | (eta le., 
copy_ie register fixed bin (7), 


FANS. 


froxred bin 
fixed bin 
Ciicmea 1). 
fixed bin 
fixed bin 
mexed bin 
fixed bin 


2 frame status anti Si. 
2null byte Pixed DA mt 
2 frame length _1lsb fixed bin ( 
2 frame_length_msb fixed bin ( 
2 destination address a fixed bin ( 
e destination adiress b fixed bin ( 
2 destination adiress c fixed bin ( 
Aeon th Otmeddaressed Gfrxed bine! 
e destination adiress e fixed bin 
<2 destination address f fixed bin 

2 source_address a Pelee de. ti 
2 source adaress 0b Telex eCnm, Olen 
Zesource address ¢ 1 Sele Bie) ah 6 

2 source address ad ieee dean 

2. S0UT Gemaatr ess eC fixed bin 
2 source address f fixed bin 

a 

Z 

Z 

2 

2 

2 

2 


a ~y ~~» ~~ ~* ~~» 


INV NNV VIII 


ee ee ee oe ee 


~* 


NEV NY 
~~ Ze” 
~~» 1 Sy = 


Oe ge, 


[* 


[% 
/* 
/* 


copy command stats rezister fi ee cera 
(i.j.k) fied vine 

reg value fixed bin ‘7), 

operation fixed bin. 7). 

Cluster feeds th 1 age 

border (88) char (1) static initial ((a@%)7-), 
‘trans blk ptr, recy omer) polater, 


[* Modules external to this module */ 


write io port entry (fixed bin (7), fixed Gin (730m 
real _ io port entry (fixed bin (7). fixeq@ oii ee 


initialize cpu Sie rs entry; 
enable cpm iter rue ena river 
disable epn interrumts GNUry, 


write_bar entry (pointer); 


/* end module listing “*/ 


4replace 
/* codes specific to the Intel 8259a Programmable 
Interrupt Controller (PIC) a 
icwl_port_address by “c@’b4, 
note that */ icw2_port_address Diy! eee ene 
icw2,icw4,*/ icw4 port_address by “e204. 
and ocw */ ocw _port_address By © cee ou 


use same */ 
DOrt addres 


{* note: icw ==>) ind tials 
CON Miron 


word 


H 
7 


operat. ona 
command 
word ay 


OCW = 


icwl Hy ges bd: 


/* single PIC configuration, edge 
trigcered Sinn ny, 


icw2 by °4@°b4, 
/* most sienificant bits of vectoring 
byte:sforcvan 1nterrupt. a 
the effective address will be 
(icw2 + interrupt #) * 4 which 


olZ 


will be (40 hex + &) * 4 = 
114 hex at | 


ewe nye Or ba. 


/* automatic end of interruot 
ard buffered moede/master a7 


ocwl ieaeeor  p4.. 


/* unmask interrupt 5 (vit 5) and 
interrupt 6. nask all others 7 


/* end 8259a codes */ 


clusters by l, 
clustered BY “22 
DaGkhe | erece i Vved Gy ah, 
await packet by ©; 


/* include constants specific to the NI301¢ 


board 


pinmceiude nisdlG.dcl’; 


> 


[5 FE BE EAE AS BK BE AE NE EAL HE DE FE AS AAC HS IE ME IE EME US AE IE AC AE AE BIS AC NE ME EAE AE NE IS DK DAE IE IS AE AE FE BIE IC IE ENE FETC TE IS ETE TE / 


/* Main Body */ 


emuster = elusterz; 


eat 
rout 
piv 
put 


[ob 
put 


put 


put 


unspec!trans blk ptr) 
unspec(rec_ bik ptr) 


y= Conf@itiona)] to s@t up own address for loopbacks */ 


ote ely clear screen “/ 
Skips 

edit ((horder ( 
skip (2) edit . 


t= 5) ie SD as 
Ze irdenost tenn ouLline ) 
),a 


e 
9 


do 

T3A1L 

ieee 

eater 172 ihe 

chi peeeemecconmand Issued , Result’) (c¢91/5),a, 

Course), ays 

edit ( Kees aaa ok oka oxo ) (6917/5) a, 
col(50@),a)3 

Skijoet 2 5 


“BAGO “h43 
“B600°b4;3 


Hol 


30S 


/* with a DS register value of Q8AGh in the link 
command, this will place packets in extended 
memory (therefore M4 overation can take place an /, 

transmit data blech esti dato did ress eae 

transmit data block destindtieu aidrces, ta—ea. 
transmit data Slock destimal menuacd rescues ay 
transmit data Block des Uintetronvadd esa. 
if (cluster = clusterl1) then 


dos 
traismit data block destinatlicen audnecs ees, 
transmit data Dlock destinatio faq). eo os 

/* corresponds to @3-FA */ 

end; 

else 

do; ./* Mts seliseter es. 
transmit data block.destination address e = 4; 
transmit data Thlcek.desw ime ion ~address Ta = 1¢,; 


/®* corresponds to O4—-A48 */ 
end; 
transmit data nlock type tieiaua 
transmit data block. Lypes field “b 
do. 7 = Ietomtece: 
transmit data block.data_bytes(i) = °% %3 


hoof 
Q < 


end; 


call read _io port (commana status _register,reg valine): 
Gall f1 1d data enmacr. 
call initialize pic; 
call initialize ,cpu DI Ute Ghote: 
put skip edit (’Run’ Onboard Diagnostic’) (col‘5),a); 
call perform_command (onboard _diarnostic)s 
put skip edit (’Perform Module Interface Loopback’) 
Lore 1S) a) 
call perform loopback (module interface locpback); 
do i= 1 to 1534; 
receive data _block.data_bytes (i) = ° 73 
end; SG) oa % / 
put skip edit (“Perform Internal Loopback J) (col o)aen 
call perform loopback (internal _ loopback) ; 
do i=i1 to 150894; 
receive data_block.data_bytes (i) = ° 73 
ends /* do i */ 
put skip edit (“Perform External Loopback’) (col(5),a)3 
call perform_loopback (go online); /* external loopback */ 
put skip (2); 
put edit ((border (1) do 1 = Peto wee) oo; 
Put Skispece ls 


call perform command(reset); 
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ale Sed 
/* end main body */ 
He HEB SER AK SIAC AE a aE ah HEC BENE BC ASE AS a a A he BK EE AEE ae aE a BE a Re a 2 BE a aC SCARE IIS COIS AE TI BIE OK BK SOAS aK BK A BC / 


al, 
> 


/* procedures 


@eueedata tlock: procedure: 


DECLAAE 


Ped pmo Static imptial (1), 
Pion hoahiteillestatic init (0) b); 


7* pegin */ 
open file (test3a190); 
on endfile (test3g10) 
beains 
end of file = “17d; 
ends 
HOewiilememendl of file =? 
pet file’ aa sees 
§ 


(a(i)) 
tot + 1, 
end; /* do while */ 


)5 
t data _block.date_bytes{i)) 


ends [i= eleddnd block 
[PE PR AE AEE AE BET HE AE SE HERE BEE HE FE TE BE SC BIE IE HE ISIE HE BIS HE HEME DHE NE Ae EEE TENE ET SE IEE HT ETE BEC BIE OE BIS IE NS / 
immer idllZze pic: procedures 
DECLARE 


(ie eiompommentry (fixed bing(7) fixed tcmemc 1) 
call write io port ficw1l port_address,icwl); 

call write io port (icw2 port_address,icw2)3 

call write io port (icw4_pvort_address,icw4):; 

call write io port (ocw_port_address, ocwl) 3 


snd initialize pics 


[HE PERK REDE HE RE HE BE HE BEE HE EH HE IS BE RE I BK EAE ED SCAR ENE RE BE DK BK DK IE BK SE BKC OK DIE DISCAL IEE BEES a a BE / 
Der noORtiecommd nd : procedure (command); 


rhe ee, 


DECLARE 
command fixed bin (7), 
reg value fixed bir (7), 
srf fixed bine). 
write io port entry (fixed yhin 97 ee 1 vcomeoee 
read_io_pvort entry (fixed bin (7), fixed bin 
commani status C€o0tes Ctr teeo doen 


returns (char(3@) varying 


/* end declarations */ 


srf = @;3 
call write io port (command _reeister,command); 
do while (mod(srf,2) = @)3 
call read io port (interrupt statuseres ecias 
end; /* do while */ 


(7)), 
Wi 


3 


call read_io_port (conmand_status register, reg value); 


if (command = reset) then 
do; 
if (command = onboard diagnostic) then 
put edit (command _status_codes(reg val 
(col(8@),a);3 
else 
put edit (diagnostic codes(reg value)) 
(201(58),a)3 
ends 


end perform_command; 


[9298 3S BE AS BE IE REI HS ACI HE IE BE DE REIS HE OK BE DAE aE Ee OA a ae ea Bee ae 3 NE a EE HE DE NS OE IC IE Ea a 


perform loopback: procedure (command ); 


DECLARE 


write io port entry (fixed bin (7), fixed bin 
read io_vort entry ¢fimed shin (7 7 1 ked aaa 
Initieli Ze sopuel aie, oe entry. 
enevremepumin tertiles Sri eyes 

disable cpu_interrupts entry, 

write bar entry (pointer), 


command _status_codes entry (fixed bin (7)) 
returns (char(30) varying 

command fixed bin (7), 

status code fixed bin (7), 

ie reg valne fixed bin (7), 

srf fixed bin (7)3 


/* end declare */ 


eG 


ae) ) 


25 36 NS AS HE IK 36 j 


ee 


“i -2 
~——— 


= = 


ee 


operation = await packet; 


t= (s 
waits ahlC Temi nberruptss 
Copy ie register = receive block available; 


call write io port (interrupt enable register, 
BocelvewNlNOCK aval labie); 

wae enarle Cpu Mnverruots, 

call write io port (cormand_register,command); 


do while (mod(srf,2) = 4); 
CMieread moO eDORtaN wmlLeTrTuUutestatus ree, srf)s 
end; /* do while */ 


te 


/* status iS available, so read it */ 


call read_in_ port (conmand status register, status code); 
put edit (command status _codes(stetus code)) (col(5%),a)3 


call transmit packet ‘transmit_idata_ block); 
do while (operation = await packet); 


Pe shaniler wiliechange ~“/ 
end; 


end perform loopback; 


[8 BR BE EE AS IK AE IE BE IE AE BRE RE AE IE BE ES BE INE BE HE NE IS EE HE OK SE OIE ME IIE HE NE AE HE IEE DK 8 DIE OIE IS DIE IE BIS IS AE IC CINE DIE AN HE TEE NE / 


transmit packet: procedure (packet) external; 


DECLAPF 


eet inedmbin (7 ) ; 

reg value fixed bin ‘7), 

WEEtemtompowt, entry (fixved bin (7), fixed bin (7)). 
reAdmrompartecntry (fixed bin (7), fixed bin (7)), 
Sate meviearnterri pts entry, 

esd ome oum inte nmr up ls entry, 

write bar entry (poirter), 


1 packet, 
» 2 destination address _a 
je —--—>* / fired. piney), 
/* assigned | */ 2 destination_address hb 


Zi 


by ———-—>% / f}xXedee heer vice 


XEROX */ 2 destingtiomeaddressac 
—— NE / fiee ol nm (ee 
2 OCS Ut ttcememeradd Tes ama 
—~-—)* / ficeqw tan (72 
assigned.) */ 2 destination address e 
by ————>% / fired) bin (7? lee 
INTERLAN ! */ 2 destination address f 
<== / fixed hin (7s 


2 type) wemamd 
fined bine (7). 
2 type_field bd 
fixed bin (7), 
data_bytes (1500) char 1); 


ae, 


/* hnegin */ 
srf = 4; 
call write io portjinterrimt enable register: 

disable ni3a13_ interrupts)} 
call write bar (addr(packet))? 
call write_io_port(high_byte count_reaz, 5); /* 1598 */ 

/*™ dy tes*/ 

call write _io_portflow byte count reg, ~2&8); 
COpyY 1e@ Ye2is (ere iran eo le done} 
call enable cpu interrupts: 
call write io port(interrupt enable register, 


transmit ima_done)s; 


do while (copy_ie_register = transmit dma_done); 


end; /* loov until the interrupt hendler 
takes care of the TDD interrupt - 
it sets TE_RFG to 4 */ 
call write_io_port (command_register, load_and_seni); 
do while (mad(srfi22)) = oi, 
call read_io_port (interrupt status ree, srf):; 
ends /* do while */ 
call read_in_port (command status_register, reg value); 


end transmit. packets 
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interrupt handler: procedu reser oraaane 


This routine is called from the low level 
Q8ZE6 assembly language interrupt routine */ 


DECLARES 


Toave  Nommomusentry ‘fixed fin (7), fixed rin ‘7)), 
Dead iompomementry (fixgd hin (7), fixed bin (7)), 
Bila he ev ie Veer up tS entry, 

jisable cou interrupts entry, 

write bar entry (pointer), 

Pence tee cratic init (1h); 


/* begin 7 


call disatle cpu_interrupts:; 
call write io port(interrupt_enable register, 
disable ni30124_ interrupts}; 

if ‘copy_ie register = receive block available) 
then dos 

call write_har (addr(receive data block)):; 

Colter ritewmomport high byte count reg, 5); 

peisec bytes */ Call Wren wo portilow bye court ree, -14); 


/* initiate receive DMA */ 


call write_io port(interrupt enable register, 


receive dma done); 


copy_ie_register = receive dma done; 
end; (7 ates /, 
else 
if (covy_ie_ register = receive dma_done) 
then dos 


diene aro ON, 
if (transmit_data_block.data_bytes!i) 


receive data block.data_bytes {i)) 
then 
match = @; 
eni; /* iterative do */ 
if { match = 4) then 


do; 
put skip(2) edit (°*** warning *** 7) 
(cog ea): 
puf skip edit (7A xX¢ Parket Frror year 7) 
(OD We 3) a); 


Side cet, */ 
OPetdipeone— pac kel received; 
end; 
else 
if (copy_ie_register = transmit dma _dore) 
then do; 
call write_io_pert‘interrupt_ enable register, 
receive block available); 
covv_ie_register = receive block availetle; 
ends Zoot then do */ 
Sidwiliwiaverr vet handlers 
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command status codes: procedure ‘conmand statis) 
external retirns (char (Sige or yee 


DECLARE 


comnand status fixed din (7); 


if comnand status = 
return ( SUCRE IS> 
else 
if command status = 1 then 
return {°SUCCESS WITH RETSIES “)3 
else 
if command status = 2 then 
return (© ILEECNL) COMMA sin 
else 
if command status = 5 then 
return (°INAPPPOPRIATE COMMAND’ )$ 
else 
if command status = 4 then 
return.) hl LUR es 
else 
if command Status = Se then 
return (“BUFFER SIZE EXCEEDED’); 
else 
if command status = 6 then 
return {°FRAME TOO SMALL“)$ 
else 
if comnani_ status = 8 then 
returr (’EXCESSIVE COLLISIONS ”); 
else 
if command status = 19 then 
return (°BUFFFR ALIGNMENT ERROR’); 


end conmand status scoades; 


. . wu ~ sate of * 
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f 


diazgnostic_codes: vrocedure (diag status) 
external returns (char‘’30) varying); 


DFCLARF 
diag status fixed bin (7); 
Li diderstatus — Vetaen 


return « SUC HGSG), 
else 


memiiae? Statuse= 1 then 

return (°NM1% MICROPROCFSSCR MUMORY ERROR’); 
else 
if diag status = 2 then 

return (°NM1”A DMS FRROR’)3 
else 
Mmeaiae status, = oS then 

return (“TRANSMITTER ERROR’); 
else 
if diag status = 4 then 

return (’RECSIVFR ERROR’); 
else 
Miediae Status = 5 then 

emir LOOREAGK FAILURE 13 


end diagnostic codes; 


t. at 4 Ls ate abe af t, a! U te ats ate af let Pe mtn Ie ale alo nie ale ale xh ate ale ale sale 
YF Bes A AR ONS AG OR AS Bae FS AEF BIS Bos Fs Mae MS AC AE as Mes ae EAS TENE HE AC HE EH OE PHS EN IE EAS A ae AS ME AS EAE AS OS IEA AR AS ON OK EE Ok / 


end; /* procedure boardtest */ 
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